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GENERAL PROGRAM INFORMATION. 
Program Purpose (Abstract) 


This program has the ghilit to test memory from address 
000000 to address 75 ‘ tt does so using: 


A. Unique addressing techniques 
8. Worse case noise patterns, and 
C. Instruction execution thruout memory. 


There is also a special routine to type out all unibus 
address r which do not timeout, as well as two(2) toggle 
in address tests provided in section 6.1 of this document. 


The intent of this program is to test as comprehensively as 
possible all memory systems manufactured by DEC without 
concentrating on any one system. Although the tests relate 
to general igns they may be com ste for certain systems. 
E.G. Any core memory from the 8K M%ii-L on up need not have 
any other addressing or worst case patterns run but in order 
to completely test the MS11-K MOS memory another diagnostic 
is required. This test is also not intended to be a 100% 
test of the memory. Other tests that do 1/0 may find memory 
problems that this test is unable to. 











System Requirements 
A. Hardware Requirements 


PDP11 family processor with a minimum of 16K of memory. 
optional... 

ox parity memory control module. 

KT11 memory management. 


B. Software Requirements 


The smallest unit of memory this program will recognize 
is 4K. If any address in a 4K bank causes a time out 
trap, that entire bank of memory is ignored by the 
program. 


The program is designed to exercise the vector portion of 
memory (locations 0-776) in exactly the same manner as 
the rest of memory. To make this possible, without 
requiring memory management, no software traps are used 
in the program. This means that if memory management is 
not available or is disabled (SWi2=1), if the program is 
relocated out of bank 0, if location 0-776 are selected 
for test, and if an unexpected hardware trap occurs, the 
results will be unpredictable. 





) 
SEQ 4 
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2.0 
2.1 
2.1.1 
2.1.2 


The program has the proper interface code to allow 
running under the automated manufacturing test Line 
system - ACT11 and APT. 


Related Documents and Stendards 


A. Programming Practices - Document No. 175-003-009-0" 
B. PDP-11 MAINDEC SYSMAC Package - MAINDEC-11-DZQAC-C2=D 
C. The applicable Memory —— Maintenance Manual 

D. The applicable Circuit Schematics 


Diagnostic Hierarchy Prerequisites 


Before ore program, a CPU diagnostic should be_ run 
to verify t functionality of the processor and PDP-11 
instruction set. 


If memory management is to be used, then the KT11 diagnostic 
should alsc be run before this program. 


PDP-11/20 - MAINDEC-11-DZQKC 
PDP-11/34 - MAINDEC-11-DFKTH 
PDP-11/40 - MAINDEC-11-DBQEA 
OR MAINDEC-11-DCQKC 
PDP-11/45 - MAINDEC-11-DCQKC 
PDP-11/60 - MAINDEC-11-DQKDA 
KT11=C - MAINDEC-11-DCKTA THRU DCKTF 
KT11=D - MAINDEC-11-DBKTA THRU DAKTF 


Assumptions 





This program assumes the correct operation of the CPU and, if 
used, the memory management option. 

OPERATING INSTRUCTIONS 

Loading and Starting Procedures 

Load the program using any standard absolute loader. 

Starting address 200: 

Normal program execution. 

Starting address 204: 

Allows the operator to input, via teletype conversation, 
first and last addresses to be exercised, and a data pattern 
to be used in tests 6 and 7. 

Starting Address 210: 


Restart program using previously selected parameters. 


se - 
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2.1.6 


2.2 


Starting Address 214: 


Restore loaders and halt. This routine is capable of 
——. the program back to banks 0 and 1 if the program 
was halted while running the top two banks of memory. There 
are special procedures required for this situation. 


A. If sanery addresses 0-1000 have not been exercised, 
either through parameter selection (SA=204) or by running 
with SWO5=1, then: 


Load Address ?°, 
Press START. 


8. If running without memory management, then: 


Load Address <214+relocation factor> 
(Relocation factor is typed when the program is 
relocated), 

Press START. 


C. If running with memory management and the unibus has_ not 
been initialized (via reset instruction, start switch, 
etc.), then: 

Load Address 777707 (PC) 
Deposit 214 
Press CONT inue 


D. If running with memory management and the unibus has been 


initialized: 

Load Address 772340 (KIPARO) 

Deposit <(relocation factor)/100> 

(Example: Relocation factor=540000, then 
Senos’ t 005400) 

Load Address 777572 (SRO) 

Deposit 000001 

Load Address (777707 (PC) 

Deposit 214 

Press Cont inue 


Starting address 220: 


Byte address memory map typeout routine. This routine 
performs DATI, DATIP, DATO, and DATOB on all possible 
addresses, and types the ranges of addresses which do not 
cause a timeout trap. 


Special Envirorments 


If the program is run in quick vag A mode under ACT11 or 
APT11 the program is done after tne first pass. Also, the 
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2.4 


program does not relocate to test the lower 8K of memory. 


Program Options 


Swi5 = 1 OR UP.... HALT ON ERROR 

SW14 = 1 OR UP.... LOGP ON TEST 

SW15 = 1 OR UP.... INHIBIT ERROR TYPEOUT 

SW12 = 1 OR UP.... INHIBIT MEMORY MANAGEMENT CINITIAL 
START ONLY) 

SWw11 = 1 OR UP.... INHIBIT SUBTEST ITERATION 

SWi0 = 1 OR UP.... RING BELL ON ERROR 

SW9 = 1 OR UP.... LOOP ON ERROR 

SW8 = 71 OR UP.... LOOP ON TE>i IN SWR<4:0> 

SW7 = 1 OR UP.... INHIBIT PROGRAM RELOCATION 

SW6 = 1 OR UP.... INHIBIT PARITY ERROR DETECTION 


NOTE: With parity error detection enabled, a memory failure 
while running the worse case noise tests (non-parity) 
can cause a parity error. The error printout on a 
parity error does not type the good data. Thus a bit 
drop or pickup will not be typed as such. It is_ best 
to run the program for 1 pose with parity disabled, 
then, restart the program with parity enabled. 


SW5 = 1 OR UP.... INHIBIT EXERCISING VECTOR AREA 
(LOCATIONS 0-1000). 
EXECUTION TIMES 


Execution time is dependent on type of memory, and amount of 
memory. Worse case run times with 900ns memorys are: 


a. For Non-Parity Memory 


First Pass: 65 seconds for first 16k + 15 
seconds for each additional 16k. 
Full Pass: 3 minutes 40 seconds for first 16k + 


3 minutes for each additional 16k. 


Iteration Inhibited: same as first pass 


b. For Parity Memory 
First Pass: 1 minute 40 seconds per 16k. 


=— —— ———ame ee 
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3.1 


3.2 


Full Pass: 8 minutes per 16K 


Iteration Inhibited: same as first pass 
ERROR INFORMATION 


Error Reportina 


There are a total of 31(8) types of error reports generated 
by the program. Some of the key column heading mnemonics are 
described below for clarity: 


PC = Program Counter oof error detection code. 
(V/PC=P/PC) 


v/PC = Virtual Program Counter. This 1s where the error 
detection code can be found in the program Listing. 

P/PC = Physical Program Counter. This is where the error 
detection c is actually located in memory. 

TRP/PC = — Program Counter of the code which caused a 

MA = Memory Address 

REG = Parity REGister address. 

PS = Processor Status word. 

IUT = Instruction Under Test. 

S/B = What contents Should Be. 

WAS = What contents WAS. 

Error Halts 


With the "HALT ON ERROR’ switch (SW15) not set there are 
several programmed ‘HALTS' in the program: 


A. In the error trap service routine for unexpected traps to 
vector 4. This one will occur if a 2nd trap to 4 occurs 
before the error report for the first has had a chance to 
be printed out. | 


B. In the relocation routine if the program is _ being 
relocated back to the first 8K of memory and the program 
code was not able to be transferred properly. 


C. In the case of error reporting and there is no terminal 
to allow the information transfer. 


SEQ 0008 
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D. In the power fail routine if the power up sequence was 
started before the power down sequence had a chance to 
complete itself. 


E. Im the Memory mapping routine or any of the address 
control routines, failures to find a meaningful map. 

PERFORMANCE AND PROGRESS REPORTS 

Not applicable 


DEVICE INFORMATION TABLES 
The following is a picture view of a parity control status 


registers, which will show bit assignments and definitions, 
to provide a handy reference: 


CORE PARITY REGISTER 





oe. ae ee ee ee ne. ee ee re 
«i a ae. ADDRESS . 2° Se. cae 
nee ee oe. soe ee ae ee ee 








15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
Bit assignments are defined as follows: 
BIT15 PARITY ERROR 
BITS 11=5 ERROR 








BITO2 WRITE WRONG 
PARITY NORMAL PARITY 
(ODD) 


WHEN CLEAR: 
OTHER PARITY (EVEN) 
WHEN SET 





BITOO ACTION ENABLE NO 
ACTION WHEN CLEAR TRAP 


TO VECTOR 114 WHEN SET 


SEQ 0009 
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ee 


MOS PARITY REGISTER 


ew SETAE S 
iper fot of ot eG ea 
nS SCR ERS ES 





15 14 13 12 11 10 09 08 07 06 05 04 03 O02 01 00 


BIT ASSIGNMENTS ARE DEFINED AS FOLLOWS: 


MSi1-K CSR 








em Ss at ee ee a mm SS 
oc: jee. + ADDRESS 
Be wave =e 


BIT15 PARITY ERROR 


BITO2 WRITE WRONG 
PARITY NORMAL PARITY 
(ODD) WHEN CLEAR; 
OTHER PARITY (EVEN) 
WHEN SET 


BITOO ACTION ENABLE NO 
ACTION WHEN CLEAR TRAP 
TO VECTOR 114 WHEN SET 


ae Ue dS ee a 
ISE!IP!DC!EC!EE! 
A sy oF Se ae 


“15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 


BIT ASSIGNMENTS ARE DEFINED AS FOLLOWS: 


BIT15 DOUBLE ERROR 


BIT 135 SET __ INHIBIT 
MODE WHEN THIS BIT IS 
SET TO A 1, IT ENABLES 
THE INH MODE POINTER 
TO INHIBIT EITHER THE 
T OR OND 16K 


THE 
ECC DISABLE MODE. 


BITS 11-5 ERROR 
ADDRESS WHEN BITO2 
CLEARED CONTAINS HIGH 
ORDER BITS OF ADDRESS 
OF PARITY ERROR(BITS 
17-11); WHEN BITO2 
SET CONTAINS CHECK 
BITS FOR ECC. 


BITO4 SINGLE ERROR SET 
WHENEVER SINGLE ERROR 
OCCURS 


SEQ 0010 


| 
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BITO3 INHIBIT MODE 
POINTER THE INHIBIT 


DISABLE MODE OR 
paaged 25 CHECK MODE. 
THE INHIBIT MODE 
POINTER INDICATES 
WHICH 16K IS BEING 
INHIBITED,,,BIT 3 =1 


THE SECOND 16K __ OF 
MEMORY IS_INHIBITTED. 
WHEN BIT 13 IS SET TO 
A Q, T 3 BECOMES 
INOPERATIVE. 


BITO2 DIAGNOSTIC CHECK 
A WHEN SET _ ENABLES 
READ-WRITE OF CHECK 
BITS(SEE BITS 11-5) 
BITO1 DISABLE 


ERROR 
CORRECTION WHEN SET NO 


ERROR CORRECTION TAKES 
PLACE 


BITOO DOUBLE ERROR 
ENABLE WHEN SET 
ENABLES TRAP TO VECTOR 
114 ON DOUBLE ERROR. 


SUB-TEST SUMMARIES 


Section 1: Address Tests. 

These tests verify the uniqueness of every memory address. 
TEST 1 Writes and reads the value of each memory Word 
Address into that Memory location. After all memory has been 
written, all locations are checked again. 


TEST 2 Writes the — value of each address into that byte 
location and checks it. 


TEST 3 Writes the complement of each word address into that 
location and checks it. 


SEQ 0011 


Mm 1 
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TEST 4 Writes the 4K bank number into each byte of that bank 
and checks it. 


TEST 5 Writes the complement of the bank number into each 
byte of that bank and checks it. 


Section 2: Worst Case Noise Tests. 


These are intended to apply maximum stress to the various 
types of PDP-11 core memories. 


TEST 6 and TEST 7 Are supplied to allow the operator to 
select a single word data pattern (SA=204) and SCOPE on 
either the writing (DATO) in TEST 6 or the reading (DATI) in 
TEST 7 of that data. 


TEST 10 Writes and then checks a series of single word 
patterns which are designed to stress parity memory. 


TEST 11 Writes all memory with 1°s in every bit and _ then 
"Ripples’’ a *0’* through it. 


TEST 12 Writes all memory with Os in every bit and then 
‘Ripples’’ a 'l"’ through it. 


TEST 13,14,15, AND 16 Write a pattern which complements when 
address BIT 3 XOR BIT 9 complements. 


TEST 17 Writes wrong parity in each byte of memory and 
checks that the parity detection logic works. This test is 
skipped for non-parity memory. 


TEST 20 Write ‘‘random’' program code through memory and 
checks It. 


Section 3: Instruction Execution Tests. 


This group of tests place instructions in the memory under 
test, then executes the instructions, and finally, checks 
that they executed correctly. 


TEST 21 Executes an instruction which does a DATI and a DATO 
on the memory under test. 


TEST 22 Executes an instruction which does a DATI and a 
DATOB on the low byte of memory under test. 


TEST 23 Executes an instruction which does a DATI and a 
DATOB on the high byte. 


us 24 Executes an instruction which does a DATIP and a 


SEQ 0012 


N 1 
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TEST 25 Executes an instruction which does a DATIP and a 
DATOB on the Low byte. 


TEST 26 EXECUTES AN INSTRUCTION WHICH DOES A DATIP and a 
DATOB on the high byte. 


6.4 Section 4: Mos Tests 


TEST 27 -Writes a pattern of 0003577 rea memory, then 
compliments it addressing downward, c iments the new 
pattern addressing upward, compliments the third pattern 
addressing upward and finally compliments this new AB 
patterns addressing downward. 


TEST 30-31 Write a checkerboard through memory then stalls 
for 2 seconds and then verifies no data has changed. 


6.5 Special Toggle In Tests 


6.5.1 Toggle-in-program #1 


The following is a toggle in memory address test. This test 
is useful when an _ address selection failure is suspected 
involving the first 8K of memory. This program writes. the 
value of each address into itself starting with the lower 
Limit and continuing to the upper Limit. After all addresses 
have been written each address is checked for the correct 
= seertws with the upper Limit and continuing to the 
ower Limit. 


LOCATION CONTENTS MNEMON I C COMMENT 
10 012700 MOV #50,R0 ee tie! ADDRESS 


* 12 -TO TES 
> (EXAMPLE START ADDRESS) 
14 010001 MOV RO,R1 “SAVE IN R1 
16 020037 1%: CMP RO. @#SWR :CHECK UPPER LIMIT 
20 177570 > (IN SWITCH REGISTER) 
22 001403 BEQ 2$ : H IF AT UPPER LIMIT 
24 010010 MOV RO.(RO) :LOAD VALUE INTO ADDRESS 
26 005720 TST (RO)+  :STEP TO NEXT ADDRESS 
30 000772 BR 1$ *LOOP UNTIL DONE 
32 010004 2$: MOV RO.R4  :SAVE UPPER LIMIT 
34 020001  3$: CMP RO.RI “CHECK IF AT LOWER LIMIT 
« 3% 001767 BEQ 1$ =BRANCH IF 
40 024000 CMP -(RO),RO :CHECK DATA WRITTEN 
42 001774 BEQ 3$ “BRANCH IF OK 
44 000000 HALT ; 
46 000772 BR 3$ -LOOP BACK 


After toggling the program LA=10**set upper Limit**, start 
NOTES: The upper limit address obtained from the switch 


SEQ 0013 


Be 
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8.0 


LOCATION CONTENTS MNEMON I C C 
010402 4$: 


H 
Limits is to st the opr make the change 
continue.) The lower Limit address (12) may be patched 
to any desired address. 


Toggle-in-Program #2 


The following is also a toggle in pregram to be used with 
a ae #1 for more complete address testing. This 

program writes the complement value of each address into 
itself aot with the upper Limit and continuing to the 
lower Limit. After all addresses have been written each 
address is checked for the correct contents starting with the 
lower limit address continui to the upper Limit. 
Toggle in the following patches to the program above. 





These are the patches to toggle-in-program #1: 








LOCATION CONTENTS MNEMON I C COMMENT 
12 1 > CHANGE LOWER LIMIT 
36 001404 BEQ 4$ BRANCH TO PROGRAM #2 


These are the additions to toggle-in-program #1: 








OMMENT 

:GET UPPER LIMIT 

pt EMENT ADDRESS 
:CHECK IF AT LOWER LIMIT 
:LOOP UNTIL 

:CHECK IF AT UPPER LIMIT 
;GO TO PROGRAM 1 IF DONE 


: MOV R4,R2 
5$: COM -(R2) 
CMP R2,R1 











SENSSFFRSSENVS 





; ERROR 
3GO CHECK NEXT ADDRESS 


PROGRAM FUNCTIONAL FLOW CHARTS 
Attached 


PROGRAM LISTING 
Attached 


SEQ 0014 


C 2 
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7211 1 WRITE BANK # INTO ALL “ADDRESSES IN A 4K BANK 
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T17 WORSE CASE NOISE PARITY BYTE TESTING 
THRU PROGRAM 


T20 RANDOM DATA TESTING CODE RELOCATION. 
SECTION 3: INSTRUCTION EXECUTION TESTS. 
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7780 T23 DATOB (HIGH BYTE) THRU MEMORY. 

7820 T24 IP, DATO THRU MEMORY. 

7857 T25 E DATI. DATI. DATIP, DATOB (LOW BYTE) THRU MEMORY. 
7894 126 EXECUTE DATI, DATI, DATIP, DATOB (HIGH BYTE) THRU MEMORY. 
7908 SECTION 4:MOS TESTS 

7932 T27 MARCHING 1°S AND Q'S. 

7985 T WRITE CHECKERBOARD STARTING WITH ‘125252' DATA. 

8002 131 WRITE CHECKERBOARD STARTING WITH 052525 DATA 

8020 DONE: RELOCATE PROGRAM PEAT ALL TESTS. 

8046 END OF PASS ROUT 

8047 SUBROUTINE AND TRAP ROUTINE SECTION. 

8048 MEMORY MANAGEMENT AND ADDRESSING 
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SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS. 
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om -SBTTL OPERATIONAL SWITCH SETTINGS 
) ;* 
(1) ;* SWITCH USE 
(1) 3 -—<-<--- Sewer eerroorooores== 
(1) :* 15 HALT ON ERROR 
(1) 5 14 LOOP ON TEST 
(1) ;* 13 INHIBIT ERROR TYPEOUTS 
(1) 3* 12 INHIBIT KT11 (AT START TIME ONLY) 
(1) ;* 17 INHIBIT ITERATIONS 
(1) ;* 10 BELL ON ERROR 
(1) ;* GS LOOP ON ERROR 
(1) ;* 8 LOOP ON TEST IN SWR<4:0> 
6185 :* 7 INHIBIT PROGRAM RELOCATION 
(1) 7* 6 INHIBIT PARITY ERROR DETECTION 
(1) ;* 5 INHIBIT EXRERCISING VECTOR AREA. 
7 -SBTITL BASIC DEFINITIONS 
(1) 2 * INITIAL ADDRESS OF THE STACK POINTER *** 1100 *«* 
(1) 001160 STACK= 1100 
(1) -EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
ost -EQUIV IOT,SCOPE ;:BASIC DEFINITION OF SCOPE CALL 
(1) : *MISCELLANEOUS DEFINITIONS 
(1) 000011 HT= 17 ;;CODE FOR HORIZONTAL TAB 
(1) 000012 LF= 12 : CODE FOR LINE FEED 
(1) 000015 CR= 15 FOR CARRIAGE RETURN 
(1) 000200 CRLF= 200 - : CODE FOR CARRIAGE RETURN-LINE FEED 
(1) 177776 PS= 177776 : PROCESSOR STATUS WORD 
(1) -EQUIV PS,PSW 
(1) 177774 STKLMT= 1 4 7: STACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 ; PROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSWR= 177570 : ;sHARDWARE SWITCH REGISTER 
a33 177570 DDISP= 177570 3 ;HARDWARE DISPLAY REGISTER 
(1) ; *GENERAL PURPOSE REGISTER DEF INITIONS 
(1) : 7 GENE REGISTER 
(1) 000001 R1= a1 : GENERAL REGISTER 
(1) 00000 R2= Z2 3;GENERAL REGISTER 
(1) 00000 R3= 23 ; GENERAL REGISTER 
(1) R4= %4 3:GENERAL REGISTER 
(1) 000005 R5= x5 : GENERAL REGISTER 
(1) R6= %6 ;:GENERAL REGISTER 
(1) 000007 R7= %7 ;;GENERAL REGISTER 
(1) SP= %6 > = STACK POINTER 


. 2 
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~80 13:07 BASIC DEFINITIONS SEQ 0018 
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St 000007 PC= %7 ::PROGRAM COUNTER | 
(1) :*PRIORITY LEVEL DEFINITIONS | 
(1) 000000 PRO= 0 : PRIORITY LEVEL 0 
(1) 000040 PR1= 40 ::PRIORITY LEVEL 1 
(1) 000100 PR2= 100 >:PRIORITY LEVEL 2 
(1) 000140 PR3= 140 > :PRIORITY LEVEL 3 
(1) 000206 PR4= 200 ::PRIORITY LEVEL 4 
(1) eins he PRS= 240 > :PRIORITY LEVEL 5 
(1) 000 PR6= 300 > :PRIORITY LEVEL 6 
vt. 000340 PR7= 340 >: :PRIORITY LEVEL 7 
(1) 
(1) :*""SWITCH REGISTER’ SWITCH DEFINITIONS 
Sf 100000 “is iow 
(1) 020000 SW13= 20000 
(1) 010000 Swi2= 10000 
(1) 004000 SWi1i= 4000 
(1) 002000 SwW10- 2000 
(1) 001000 Swo9= 1000 
(1) 060400 Sswos= 400 
(1) 000200 200 
(1) 0001700 100 
(1) 000040 40 
(1) 000020 20 
(1) 000010 10 
(1) 000004 4 
(1) 000002 2 
(1) 00000 1 1 
(1) SWO9 , SWI 
(1) SW08 , SW8 
a Sue Sus 
a Sus sus 
(1) SWO04 , SwW4 
(1) SWO35.SW3 
(1) SWwO2, SW2 
(1) SwWwO1 , SW1 
3 SwO00, SWO 
(1) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 100000 
(1) 040000 BIT14= 
(1) 020000 BIT13= 
(1) 010000 BIT12= 
(1) 004000 BIT11= 
(1) 002000 BIT10= 
(1) 001000 IT09= 
(1) 000400 1T08= 
(1) 000200 B1T07= 
(1) 000100 1T06= 
(1) 000040 BITOS= 
(1) 000020 B1T04= 
(1) 000010 BITO3= 
(1) 000004 BITO2= 
(1) 000002 BITOT= 


2 
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CSomce. P11 1Z2-MAR-B80 1 BASIC DEFINITIONS SEQ 0019) 
(1) 000001 81T00= 
(1) -EQUIV BITO9. BIT9 
(1) -EQuI 1708.8] T8 
(1) a lv BITO7.BI1T7 
(1) P IV BITO6.BIT6 
(1) -EQUIV BITOS,BITS 
(7) -EQUIV BITO4, 
(1) -EQUIV BITO3,BIT3 
(1) -EQUIV BITO2,BIT2 
(1) -EQUIV BITO1,BIT1 
He -EQUIV BITOO,BITO 
(1) ; *BASIC taal TRAP VECTOR ADDRESSES 
(1) E RRVEC= >;TIME OUT AND OTHER ERRORS 
(1) 000010 : 7RESERVED AND ILLEGAL INSTRUCTIONS 
(1) 000014 ::°T'' BIT 
(1) 000014 >; TRACE TRAP 
(1) 000014 ; ;sBREAKPOINT TRAP (BPT) 
(1) 000070 : : INPUT /OUTPUT TRAP (IOT) **SCOPE** 
(1) 000024 FAIL 
(1) 000030 ERATOR TRAP (EMT) **ERROR** 
(1) 000034 :‘"TRAP’* TRAP 
(1) 000060 TT Y KEYBOARD VECTOR 
(1) 000064 TPVEC= 64 SLTTY PRINTER VECTOR 
gia? 000240 PIRQVEC=240 : ;PROGRAM INTERRUPT REQUEST VECTOR 
6188 
oy; -SBTTL MEMORY MANAGEMENT DEFINITIONS 
ot 3*KT11 VEC .2 ADDRESS 
3 000250 MMVEC= 250 
3? :*KT11 STATUS REGISTER ADDRESSES 
(1) 177572 SRO= 177572 
(1) 177574 SRi= 177574 
(1) 177576 SR2= 177576 
1 172516 SR3= 172516 
Hh. > @KERNEL °“‘I'’ PAGE DESCRIPTOR REGISTERS 
(1) 172300 
13 195304 
a 195306 
(1) 172310 
(1) 172312 
(1) 172314 
(1) 172316 
(1) 
(1) 
(1) 
(1) 172340 
(1) 172342 
(1) 172344 





6200 
6201 
6202 


: 


BLE LE LLP LILO LS 


620 





aA AAA AAR ARERR 


& 


ee ed et 2 I) ot dd od ot = 3 =o 


Pe ee Be ee ee 


esse 


eee eee ee eS IE I SO 





000046 
000052 





350 


354 
54 
56 


177746 
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ME MOR 
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Y MANAGEMENT DEFINITIONS 
K [PAR3= 


K ]PAR7= 


uP = 0 ;CODE FOR UPWARDS MAP IN MEM MGMT PDR'S 
Rw = 6 ;CODE FOR READ/WRITE IN MEM MGMT PDR‘S 


is PARITY MEMORY DEF INITIONS. 
PARVEC=114 


;* MISCELLANEOUS ASSIGNMENTS 
MASK4K= 17777 


* CACHE REGISTER DEFINITIONS. 
iMPCHE = 177746 


-SBTTL TRAP CATCHER 


;PARITY ACTION ENABLE 
;PARITY TRAP VECTOR 


;MASK FOR 4K ADDRESS BANK BOUNDRY. 


.=0 
L UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘’.#2,HALT’’ 
SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT 

: *LOCATION e. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


;sSOFTWARE DISPLAY REGISTER 











-WORD 0 > SOFTWARE SWITCH REGISTER 
-SBTTL STARTING aeons $5 (ES) 
JMP @4START ;;: JUMP TO STARTING ADDRESS OF PROGRAM 
SELECT ; STARTING ADDRESS TO ALLOW THE OPERATOR ITO 
; SELECT VARIOUS PARAMETERS. 
RESTAR -RESTART ADDRESS, USING PREVIOUS e- + om 
RESTOR “RESTORE LOADERS TO END OF MEMORY AND HALT 
TIMOUT : TYPE OUT MEMORY MAP, BYTE BY BYTE. 
VEC 
-WORD ERRTRP 
-WORD 0 
-SBTTL ACT11 HOOKS 


SREAARAAEAAARAEAAAAEEREREAAEEARERAEEARAREREREKEARAAAAERKERRERKEEARA AED 


“HOOKS REQUIRED BY ACT11 
$SVPC=. 


ve -SAVE PC 
SENDAD -:1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
"WORD BIT14 ::2)SET LOC. 52 TO BIT14 
" =$SVPC «RESTORE P 
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CZ7QMCG.P11 12-MAR-80 13:07 ACT11 HOOKS SEQ 0021 
000300 .=300 
SF EAAAAAAAAAAAAEAAAAAAEAAAAERARAARAAAAAAEARAAARARAARARAAAAARAREAEE 
> THE FOLLOWING ROUTINES ARE LOCATED IN THE VECTOR AREA (0-1000) SO THAT 
** THEY CAN BE PROTECTED BY SELECTING SWOS (SEE DOCUMENT FOR USE oF Sw05). 
:* THE CODE CAN ALSO BE RUN FROM ANY BANK OF Y, ASSUMING MEMORY 
** MANAGEMENT IS DISABLED BY ‘'CONSOLE START’’. 
PETTITT TTT ETL L TL TERRELL LLL LLL LLL 
RESTAR: CLR RS :CLEAR FLAG TO INDICATE RESTART. 
BR REST1 -GO RESTORE PROGRAM BEFORE RESTARTING. 
RESTOR: MOV PC, R5 ‘PUT DATA INTO FLAG FOR RESTORE. 
001100 REST1: MOV WSTACK, SP “SET UP THE STACK POINTER. 
1 TST MMAP Y ‘HAS BEEN MAPPED. 
BNE REST2 
002340 JMP STARTA -GO START 
000256 REST2: TST MMAVA ;CHECK IF MEM MGMT AVAILABLE. 
BEQ 10$ F NO MEM MGMT. 
000001 177572 BIT #BITO, a#SRO ; CHECK IF MEM MGMT ACTIVE. 
BNE $ F MEM MGMT ALREADY SET UP. 
172300 MOV #KIPDRO,RO “POINT TO FIRST MEM MGMT DDATA REG. 
10 MOV :SET UP COUNTER. 
077406 1$: MOV #077406,(RO)+  :MAP FIRST 28K 1-FOR-1 
DEC 1 -COUNT REGESTERS 
BNE $ “BR IF MORE REG. 
172340 MOV #KIPARO,RO :POINT TO FIRST MEM MGMT ADDRESS REG. 
CLR (RO) + -PARO MAPPED INTO BANKO. 
000200 MOV #200,  (RO)+ 
000400 MOV #400,  (RO)+ 
MOV #600 (RO) + 
001000 MOV #1000, (RO)+ 
001200 MOV #1200, (RO)+ 
001400 MOV #1400, (RO)+ 
007 MOV #7600, (ROQ)+ 
1 177572 MOV #BITO, aS ‘ENABLE MEM MGMT. 
0004 2$: CLR RO -INIT TEMP PAR REG. 
000142 MOV GMAP, R1 :GET THE PROGRAM MAP...LO 64K. 
000440 000140 MOV PRGMAP+2 ,R2 :..eHI 64K. 
000444 2 3s: ASR R2 >SHIFT THE MAP POINTER. ..HI 
000446 1 ROR R1 :..L0. 
000450 103404 BCS 4$ “BR WHEN FIRST BANK FOUND. 
000452 000200 ADD #200, RO “UPDATE TMP PAR TO NEXT BANK. 
000456 BPL 3$ BR F ‘ 
000460 HAL T * FATAL ERROR!!! EMPTY 
000462 172340 4$: MOV RO @AKIPARO :PUT TEMP PAR INTO FIRST PAR. 
000466 72 JMP ass - JUMP INTO PROGRAM IF NOT THERE ALREADY. 
0004 200 5$: ADD #200, R0 “KEEP UPDATING TEMP PAR REG. 
000476 ASR R2 -SHIFT POINTER...HI 
000500 ROR R1 $e oil 
000502 BCC 5$ “BR IF TOP BANK NOT YET FOUND. 
000504 172342 MOV RO, avk IPAR1 SET UP SECOND PROGRAM ANK POINTER. 
000510 BR 20$ :-BR TO RELOCATE SECTION. 
000512 000062 10$: MOV RELOCF, RO “GET RELOCATION FACTOR. 
000516 001100 ADD ASTACK, RO *SET UP STACK POINTER. 
000522 MOV RO SP :SET STACK TO RELOCATE PROGRAM. 
000524 177432 ADD #20$-STACK.RO : ADJUST, RO TO RELOCATED *20$'' ADDRESS. 
000530 000110 JMP (RO) O TO ''20$'' (RELOCATED). 
000532 022767 000003 000042 20S: CMP #3, PRGMAP ‘CHECK IF PROGRAM IS IN BANKS 0 AND 1. 
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000540 

000542 016324 

000546 

000550 

000552 000412 

000556 000320 

000562 005326 
016506 

000572 

000574 002064 

000600 000000 

000602 000000 000000 

000606 000000 
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ACT11 HOOKS 


BEQ 21$ 3;BR IF IN BANKS 0 AND 


JSR PC, RELO sRELOCATE THE PROGRAM BACK K TO BANKS 0 AND 1. 
21$: TST R5 :CHECK RESTART/RESTORE FLAG. 

BNE 22$ :BR_IF REST 

CLR STIMES :CLEAN UP BEFORE STARTING. 


JMP START 1 sRESTART WITH PREVIOUSLY SELECTED PARAMETERS. 


22$: JSR PC, RESLDR ;RESTORE THE LOADERS TO THE ‘‘TOP’’ OF MEMORY. 
HALT :HALT AFTER RESTORING THE LOADERS. 
JMP STAR ;CONTINUE WILL RESTART THE PROGRAM, 

;* THE FOLLOWING LOCATIONS ARE USED BY THE ABOVE BE LOCATED 





; ROUTINE AND MUST 

:* BELOW 1000 TO INSURE CORRECT OPERATION UNDER THE WIDEST VARIETY oF 
;* CIRCUMSTANCES. 

RELOCF: .WORD 0 ;CONTAINS RELOCATION FACTOR (NO MEM MGMT) 
PRGMAP: .WORD 0,0 :PROGRAM MAP = WHERE THE PROGRAM IS LOCATED 
MMAVA: .WORD 0 :MEMORY MANAGEMENT AVAILABLE FLAG. 


SEQ 0022 


K 2 
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CZQMCG.P11 12-MAR-80 13:07 POWER DOWN AND UP ROUTINES SEQ 0025 


-SBTTL POWER DOWN AND UP ROUTINES 


S RAAAAAAEEEKEAAARAREAEAAEAAEAERAAARRAKREAAEKAERARRARERARARAREHEREREE ED 


POWER DOWN ROUTINE 
MOV 


: 





000610 012737 000756 000024 $PWRDN: A#SILLUP ,a#PWRVEC ;;SET FOR FAST UP 
000616 012737 000340 000026 #340 ,aWPWRVEC+2 ; ;PRIO:7 
010046 RO, -tsP) :PUSH RO ON STACK 
010146 R1,-(SP) *=PUSH R1 ON STACK 
010246 R2,-(SP) * PUSH R2 ON STACK 
010346 R3,-(SP) : PUSH R3 ON STACK 
10446 R4,-(SP) - PUSH R4 ON STACK 
000636 010546 RS,-(SP) : PUSH RS ON STACK 
000640 017746 000274 aSWR,-(SP) ;7PUSH @SWR ON STACK 
000644 010667 SP, $SAVR6 :SAVE SP 
000024 #SPWRUP ,a#PWRVEC ::SET UP VECTOR 
4 : HANG UP 





SERA RREKEEEEAEEKRKEERAREEAREREAEEKRARKERERAKRERAEREAREERRAERRARERERKEEREEE 


-POWER UP ROUTINE 
012737 000756 000024 $PWRUP: MOV #SILLUP ,AMPWRVEC ;;SET FOR FAST DOWN 
000066 MOV SSAVR6, SP T SP 





000062 CLR SSAVR6 SIWAIT LOOP FOR THE TTY 
000056 1$: INC 7 sWAIT FOR THE INC 
BNE WORD 


WA A It NIAAA Ss Ss 


LQ LO LO LOD LOD LODO} OOD LOD’ OD DDB RFR FR RFR FR FR FRR FRE 
et et et et et et et at et et ee ee ee ee ee ee ee ee ee ee ee ee ee te ee 





000226 *:POP STACK INTO @SwR 
| ::POP STACK INTO R5 
(3) *:POP STACK INTO R4 
(3) *:POP STACK INTO 
(3) >:POP STACK INTO R2 
(3) *:POP STACK INTO R1 
(3) >:POP STACK INTO RO 
(1) 000610 000024 VEC :;SET iP THE POWER DOWN VECTOR 
(1) 000340 000026 :-PRIO 
(2) 022554 :60 PRINT OUT THE FOLLOWING MESSAGE. 
(1) G :POWER FAIL MESSAGE POINTER 
(1) (PC)+, (SP) : RESTART AT RESTART 
(1) RESTART > :RESTART ADDRESS 
(1) ;7THE POWER UP SEQUENCE WAS STARTED 
(1) -2 BEFORE THE POWER DOWN WAS COMPLETE 
(1) ->PUT THE SP HERE 


é 
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O485 .SBTTL COMMON TAGS 


RARE RRRA RARER EAA RA EERE RA EREREREAEERERERRARARA RTE AREER ERE 
:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


-=1100 
SCMTAG: ;zSTART OF COMMON TAGS 


. WORD 

STSTNM: .BYTE 
SERFLG: .BYTE 
: WORD 


NS THE TEST NUMBER 
ERROR F 
NS SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN F 


OR ERRORS 
TOTAL ERRORS DETECTED 
NS LL oy ada BYTE 








ADDRESS OF ‘BAD’ DATA 
"GOOD" DATA 


3; CONTAINS DATA 
3; sRESERVED--NOT TO BE USED 





; sAUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 


DSWR ; ADDRESS OF SWITCH REGISTER 


OOCCCOCCO0OO “OOOO oo00oO 


DDISP 7 ;ADDRESS OF DISPLAY REGISTER 
:sTTY KBD STATUS 
:TTY KBD BUFFER 
>= TTY PRINTER STATUS REG. ADDRESS 
0 es TTY PRINTER BUFFER REG. 
2 
12 
0 
0 
0 
0 
0 





NE 
NUMBER OF ITERATIONS 
® TESCAPE ON ERROR ADDRESS 





eee 
RNSKFRSVRARNSSRASKGENVSRRNSSARNOKRAVSS 





SSSSSSSSSSSSSSSSSVSSSSSSSSSssssEsEssEEss 





ee et ee ce ee a et ee et a et a et a et at et Bat et a et et et ee et ee et et a a et a et et a a et ee ee et et a ee ee ee ee te ee 


LO LOO LO OO OO LO LO LO LOR OE ORR OUP OO OR LP LP LO OO OO LO LD LO LO LO OL LO LO LO LL LO LO LO LO LO LO LL LO LO LO LO lm, Uhl, he 


000377 C1Z alii $3 CODE FOR BELL 
200 077 SQUES: CI] 
201 015 SCRLF : ASCII 645> 
202 000012 SLF: eASCIZ <12> 
RRERRERREEERER ENE A EERE EERE RRR RE RAR RRR RE RR 
“SBITL APT MAILBOX~E TABLE 
FLARE REREEEAEKEAREREERERAEARAEREAEEARAERAAAEERARERAE ERR ARRERAE EES 
-EVEN 
001204 SMAIL: MAILBOX 
001204 000000 SMSGTY: .WORD AMSGTY MESSAGE TYPE CODE 
001206 000000 SFATAL: .WORD AFATAL =;;FATAL ERROR NUMBER 
001210 000000 STESTN: .WORD ATESTN ;; TEST NUMBER 


M 2 
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C2OMCC. P11 12-MAR-80 13:07 T MAILBOX~E TABL SEQ 0025 





APASS 
ADEVCT 
AUNIT 


SPASS: 
SDEVCT: 
SUNIT: 


AMSGAD 
AMSGLG 





AE sENVIRONMENT MODE BITS 
ASWREG STAPT SWITCH REGISTER 
AUSWR oe SWITCHES 
;CPU_ TYPE OPTI 
BITS WS-11ecPu T TYPE 
HA = we 4 -11/05=02,11/20=03, 11/40=04,11/45=05 
0=06 ,PDQ=07 ,Q=10 





000000 
000000 
000000 
000000 
000000 

000 

000 
000000 
000000 
000000 





BIT 10=REAL TIME CLOCK 

BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 

: sHIGH ADDRESS, ~ BYTE 


AMAMS 1 
AMTYP1 ;;MEM. P 
MEM.TYPE BYTE =~ (HIGH BYTE) 
NSEC CORE=001 


POLAR=002 
500 NSEC MOS=005 
AMADR1 ::HIGH ADDRESS. BLKA1 
ADDR. = 3 BYTES, .THIS WORD AND LOW OF ‘'TYPE'’ ABOVE 


SS ,BLK#2 
-M.S.BYTE 


SS ,BLKA3 
ae -BYTE 


: 
a8 








m 









a5 
aa 














=x 
bes 
¢ 
~ 


3 
is 





a 
i. 






® 
ap 









SS ,BLKA4 
CTORA1 .BUS ays e's Md 
‘INTERRUPT VECTORA2BUS PRIORITY#2 
; sBASE “yo OF EQUIPMENT UNDER TEST 


ICE 
::CONTROLLER DESCRIPTION WORDA1 
; s CONTROLLER DESCRIPTION WORDA#2 
SCRIPTOR WORD#O 















SSSSSSS99SS88899900008378 





—— oe 


S8SSSSSSSSSss 


:;DEVICE DESCRIPTOR WORD#14 
; DEVICE DESCRIPTOR WORDA15 


: 


CZQMCGO 0-124K MEMORY E 
~MAR-80 15: 





CZQMCG.P11 12 
(2) 001350 
(2) 
(4) 
(4) 
(5) 
(4) 
(5) 
(4) 001330 
(4) 000024 
o 000024 000 
(4) 000044 0013350 
(4) 001330 
(5) 
(4) 
(4) 
(4) 
(4) 001330 
(4) 1330 
(4) 001332 001 
(4) 1334 004540 
(4) 001336 000170 
(4) 001340 000360 
(4) 001342 000052 
(4) 
(4) 
(5) 
(4) 1344 
(5) 1344 177777 
(5) 001350 177777 
(5) 1354 177777 
(5) 1360 177777 
(5) 1364 177777 
(5) 001370 177777 
(5) 001374 177777 
(5) 1400 177777 
(5) 1404 177777 
(5) 001410 177777 
(5) 001414 177777 
(5) 14 177777 
(5S) 001424 177777 
(5) 1430 177777 
(5) 001434 177777 
(5) 001440 177777 
(5) 444 177777 
(5) 001450 177777 
(5) 001454 177777 
(5) 001460 177777 
(5) 001464 177777 
(S) 001470 177777 
(5) 001474 177777 
(5) 001500 177777 
(S) 001504 177777 
(4) 001510 177777 
(4) 001512 001344 


(3) 


. 16K VER 
APT 





MACY11 ane 
MAILBOX~E TABL 


SETEND: 


N 2 
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SEQ 0026 


-MEXIT 
-SBTTL APT PARAMETER BLOCK 


* *KEEEEKEEKAKEEKEAREAAERAEEEEAEEAAEKAEREKEEAAEAERARKAEKAERAERAEREKEAKRHEEKEEAEE 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


s RAAAAAEEAEEEAEAARAEEREREEAAAARERERAAAEREARAAKEARAEAREARRAEAERAERARREE 


::SAVE CURRENT LOCATION 
PER oor etaat. TO POINT TO START OF PROGRAM 


T 
::POINT TO APT INDIRECT ADDRESS PNTR. 
T TO APT HEADER BLOCK 





X 
MASSBAALEAAALALSLALASASL ALARA ARE SRA REL ARAL ARRAS ARAL ASE RAAAR ARS SASS & | 


“SET 


SASTAT: 


SASTEND: 
SAPTR: 


am § 


TUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


:;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

;;ADDRESS OF APT MAILBOX (BITS 0-15) 

; RUN TIM OF LONGEST TEST 

+ RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
DITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


: AD 
TEND-SMAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 


APT STATISTICS TABLE 


ST ERAAEAEREREEKEEEKRAEEEEEEREREKEEKEAEKERERKEKRAEKKEKEEKEKREKKKEEKEEREREEE 


PEEELEEEEEEEE TEEPE EE EEEE 


44 
F 
— 
> 
“4 


i 
—" 
& 
© 


i (+2 ¢9 £ e243 -2.9-6 

mee cee ewe eee ence eee meme meal eee eee cemee ceme ecce cee ceee ceeel cece cee eee cee eel eel cee ee eed 
>.» *&® 6 
DODOOCOCO COO COVC OOOO oOoodoodooO 


(tr+tetete_et®e_oee#eetetd 
se eee esses ee sees 8 8 eee 


) 
' 


CZQMCGO 0-124K MEMORY 
12-MAR~-80 


CZQMCG.P11 


od ant 
os 


ed ek a ae ed ed ed eed 
WV MMVIMViMV@MiwMwum »3 uM 


S88 sssssssss gs 
K RRSSRLRNS 


070082 





E 
1 


RC 
:07 


ISER, 


16K VER 


MMORE : 


SELFLG: 
F LAG8&K : 
OEFLG: 
FSTADR: 
TMPF AD: 
F ADMSK : 


me Ss 
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APT STATISTICS TABLE 


© ERAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAARAAAAAAARAARAARAAARARAAAAARKE 


; * THE FOLLOWING TAGS ARE USER DEF INED 


s RAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAARARAAAAAAARARARAARARARARAARARRARAAE 


S558558 88 99 38 | 


0 
070032 


ooo oOo Sco OO oc oOo OO 


8 
© 


Cofooo oo oo 2o98o Oo OOO 
© 


— 
~N 
™ 
| 
~ 
Oo 


VIRTUAL PC LOCATION 

® CORE ~~ =o BITS RESERVED FOR FUTURE USE. 

TE: FOR MS11 MEMORY WITH PARITY, CHANGE TO 077772. 
“LAST CONT I GUOUS SS (+ 


MEMOR Y +2) 
; CONTAINS DISPLAY REGISTER IMAGE 


















MORY MAP - EACH BIT CORRESPONDS TO 4K 
FIRST WORD CONTAINS LOW ( ) MAP 
COND WORD CONTAINS HIGH (64-128K) MAP 
‘TEST MAP ~ WHICH BANKS SELECTED FOR TEST. 
iF IRST WORD CONTAINS ) MAP 
OND WORD CONTAINS HIGH (64- 





128K) MAP 
USED DURING FIRST PASS TO ONLY 


; ACH BANK ‘ 

sFIRST WORD CONTAINS LOW (0-64K) MAP 

;SECOND WORD CONTAINS HIGH (64-128K) MAP 
CH BANKS HAVE 









USED BY 

SOPERATOR SELECTED PARAMETERS FLAG.  (SA=204 

;8K BLOCK INDICATOR. USED IN ‘‘INI THAT’ AND ‘uP’. 
;ODD/EVEN FLAG USED IN PARITY MEMORY BYTE TEST. 


a4 VIRTUAL ADDRESS TO BE TESTED. 


ADDRESSING TESTS 
O BREAK O FIND FIRST ADDRESS. 
MAP OF BANK IN WHICH FIRST ADDRESS IS LOCATED. 
:LAST VIRTUAL ADDRESS (+2) TO BE TESTED. 
LAST we IS USER ae CTABLE. 






ADDRESSING TESTS 
ND SS. 






IN WHICH LAS 

“BLOCK DETERMINES THE BLOCK SIZE. 

; USER SELECTABLE CONSTANT DATA. 
ITE snr S70 ARITY COMMAND 


: TEMPORARY 
:CACHE PRESENT FLAG 
:CACHE CONTROL REGISTER 





REARAEAEERAAAAARAAERAAEAARAAEAEARAKEARARAAARRERAKRAAREAERRAREAARAAEKEEREEEE 


RELATIVE ADDRESSING TABLE. 
THE FOLLOWING LOCATIONS ARE MODIFIED AT RELOCATION TIME TO ALLOW 


FOR ERROR TYPEOQUT ROUTINE (SERTYP). 


SEQ 0027 
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CZ 
CFOMCC. P11 12-MAR-80 13:07 APT STATISTICS TABLE SEQ 0028 
(3) :* RELATIVE ADDRESSING TO GET THE RELOCATED VALUE OF THE ARGUEMEMT TAGS. 
(4) ss RERAAAAARAAAAAAAAE ERATE EEAARAREREREHEREERAR ERA ERER EKER KER E 
(3) 001622 RADTAB: 
(3) 001622 001100 -STACK: STACK 3; STACK Be the INITIAL ADDRESS. 
(3) 001624 001516 -RESRV: RESRVD :PARITY REGISTER RESERVED BIT MASK ADDRESS. 
(3) QO1 002076 -MPRO: ITY REGI TABL 
(3) 001 002276 -MPRX: MPRX 5 Y PARITY REGISTER EXIST TABLE ADDRESS 
(3) 001632 012062 .PBTRP: PBTRP ;PARITY BYTE TEST TRAP ROUTI : 
(3) 001634 002050 -MPPAT: MPPATS 7MEMORY PARITY PATTERN TABLE ADDRESS. 
(3) 001636 017440 -PESRV: PESRV ;MEMORY PARITY poe TRAP ROUTINE ADDRESS. 
(3) 001640 902340 -ERRTB: SERRTB OUT TABLE PONT 
(3) 001642 000010 -EIGHT: 
(3) 001644 014014 - TST3e: TST32 
(4) : POT OTT TOT TTT TTT TTITITITT TELL TL LLL LE TLE LL LLL 
(3) :* DATA CONTAINERS FOR ERROR PRINTOUT. 
(4) 2S RRRRRREREAREERRREER EERE ERATE AREER REE ERE EERE 
(3) 001646 001116 001120 001124 611:  SERRPC,S$GDADR,$GDDAT.S$BDDAT.0 
(3) 001654 001126 000000 
(3) 001660 001514 001116 001120 ODT2: SVERPC ,SERRPC , SGDADR , SGDDAT , SBDDAT , 0 
(3) 001666 001124 001126 000000 
(3) 001674 001514 001116 001120 DT12: S$VERPC,SERRPC,.SGDADR,$GDDAT .0 
(3) 001702 001124 000000 
(3) 001706 1514 001116 001160 DT14: SVERPC,SERRPC,.STMPO,$GDADR,0 
(3) 001714 1120 000000 
(3) 001 15 1116 001120 DT15: S$VERPC,.SERRPC,.$GDADR.S$TMPO,SGDDAT ,$8DDAT ,0 
‘. 1 1124 001126 
(3) 1116 001160 DT21: SVERPC,SERRPC.STMPO,SGDADR,S$GDDAT ,SBDDAT .0 
ie 1124 001126 
(3) 1116 001120 DT23: S$VERPC,SERRPC.SGDADR,S8DADR ,SGDDAT ,SBDDAT 0 
(3) 1124 007126 
(3) 001770 000000 
(3) 001116 001122 DT24: S$VERPC,SERRPC,.SBDADR,0 
(3) 002000 000000 
(3) 002002 001116 001122 DT25: S$VERPC,.SERRPC,.SBDADR,.STMPO,STMP1.0 
(3) 00201 001162 000000 
(3) 001116 001160 DT26: S$VERPC,SERRPC,STMPO,STMP1 .0 
(3) 002024 000000 
(3) 001162 001120 DT30: S$TMPO,STMP1,SGDADR,S8DDAT.0 
(3) 000000 
(3) 000000 DT31:  STMP3,0 
tt -WORD -1 ; TABLE TERMINATOR. 
(3) .SBTTL MEMORY PARITY PATTERNS TABLE 
(4) SERRE RARER RRRRERR EE REREEAERERERERER AREA RARER RERERERRRER ERE ERED 
(3) >THE FOLLOWING ARE THE PARITY PATTERNS EXERCISED THRUOUT MEMORY 
(4) SE RARRARARRRREARERERERERREREREREERRERAERAEREEREEERAARERRERR EERE 
(3) 
(3) 002050 125325 MPPATS: 125325 EVEN, ODD 
(3) 002052 152652 152652 EVEN 
(3) 002054 052452 052452 “EVEN ODD 
(3) Shee 025125 025125 ODD ,EVEN 
(3) 0 102070 102070 ZEVEN, EVEN 
(3) 002062 072527 072527 


: ODD ,ODD 
(3) 002064 177777 177777 EVEN, EVEN 


CZQMCGO oles MEMORY EXE 
12-MAR-80 1 


C2OMCC. P11 


ease 


002074 


Wi 
Nm 


SRISISRTSKEN 


RERSRRRERR RCC ST 


SERS 


x 
3: 


RCISER, 
7 


16K VER 


MPEND: 


IF 


Neen eeennn 






THE CONTROL OF EA 
Ls DEVICE oe 
FIRST WORD B 
OND 
172100 +1 
0 
; 

MPR1: pretee +1 
MPR2 : iat +7 
6 
MPR3: pares +1 
0 
0 
MPR4 : perey +1 
0 
0 
MPRS: grants +7 
0 
0 
MPR6: ala +7 
0 
0 
MPR7: bathing +7 
; 

MPR8: {rates +7 
5 
MPR9: 172122 +1 
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107030 
[aeses 


0 


dD 3 
12-MAR-80 15:10 PAGE 59-12 
MEMORY PARITY PATTERNS TABLE 


;ODD ,ODD 


;0DD,EVEN 
“EXTRA PATTERN HOLDER FOR 


sFU 
; TABLE TERMINATOR 


MEMORY PARITY REGISTER ADDRESS 








. SBTTL TABLE 
SULCUS 
THE FOLLOWING REPRESENTS THE MEMORY TABLE 
FROM WHICH PARITY MEMORY IS ADDRESSED & CONTROLLED: 


THE LEAST SIGNIFICANT BIT IN THE DEVICE a IS SET TOA - (1) 
THE CONTROL IS FOUND NOT TO BE PRESENT. THE MEMORY PRESENT UNDER 
CH CONTROLLER IS REPRESENTED BY TWO (2) se FOLLOWING 
oh BIT REPRESEN TING A 4K BLOCK. 
BIT = 4 7 8K.... BIT1 T15 = 
SFC WORD BITO = BIT 120 = 12 
Mics hed aee nn 


PARITY REGISTER ADDRESS 


Y STATUS REGISTER 
;CONTROL MAP (LOW 
:CONTROL MAP (HIGH 64K) 








:MASK FOR MOS, CORE .MS11-K 
:PARITY STATUS REGISTER 






; CONTROL MAP (LOW 64K) 
: CONTROL MAP (HIGH 64K) 





sMASK FOR MOS,CORE .MS11-K 
“PARITY STATUS REGISTER 


sCONTROL MAP (LOW 64K) 


: CONTROL MAP (HIGH 64k) 


MS11-K 


sMASK FOR MOS,CORE, 
sPARITY STATUS REGISTER 
sCONTROL MAP (LOW 64K) 


;CONTROL MAP (HIGH 64K) 
>MASK FOR MOS, CORE .MS11-K 
:PARITY STAUS REGISTER 
sCONTROL MAP (LOW 64K) 

: CONTROL MAP (HIGH 64K) 


-MS11-K 


: MASK MOS , CORE 
:PARITY STATUS REGISTER 


ROL MAP (LOW 64K) 


3; CON 
;CONTROL MAP (HIGH 64K) 


sMASK FOR MOS,CORE .MS11-K 
sPARITY STATUS REGISTER 
;CONTROL MAP (LOW 64K) 


: CONTROL MAP (HIGH 64K) 
FOR 


MOS . CORE .MS11-K 
:PARITY STATUS REGISTER 
ONTROL MAP (LOW 64K) 





:C L 
:CONTROL MAP (HIGH 64k) 
:MASK FOR MOS, CORE ,MS11 
“PARITY STATUS REGISTER 
: CONTROL MAP (LOW 64K) 
;CONTROL MAP (HIGH 64K) 








MS11-K 


;MASK FOR MOS,CORE, 
“PARITY STATUS REGISTER 


ee ee ee 
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MORY PARITY REGISTER ADDRESS T 





SEQ 0030 





;CONTROL MAP (LOW 64K) 
; CONTROL MAP ye et 


“MASK FOR MOS, CORE .MS11 
72126 +1 “PARITY STATUS. REGISTER 
*CONTROL MAP (LOW 64K) 
: CONTROL MAP (HIGH 64K) 
“MASK FOR MOS, CORE 
72126 +1 :PARITY STATUS REGISTER 





—OOoO 





MPR10: 






0 
é 
4 
6 
2 
4 


“MASK FOR MOS, CORE 
72130 +1 “PARITY STATUS REGISTER 
“CONTROL MAP (LOW 


“MASK FOR MOS 1-K 
72132 +1 *PARITY STATUS. REGISTER 
“CONTROL MAP (LOW 64K) 


“CONTROL MAP (HIGH 64K) 
“MASK FOR MOS, CORE .MS11-Kk 
72134 +1 “PARITY STATUS. REGISTER 
“CONTROL MAP (LOW 64K) 
“CONTROL MAP (HIGH 64K) 
“MASK FOR MOS, CORE .MS11-k 
72136 +1 ; PARITY STATUS REGISTER 
MAP (LOW 64K) 
:CONTROL MAP (HIGH 64K) 


FOR MOS ,CORE .MS11-K 
ioe IS THE * ae OF THE TABLE ! 
MPRX -BLKw 17. ; TABLE TO HOLD JUST PARITY STATUS _—s THAT EXIST. 
: (THE EXTRA WORD IS FOR A TERMINATOR. ) 

















3 
IN 
O00 -0O00 - 000-000 “9200 “920° 








-_ 
Sot {aes MEMORY EXERCISER, i6K VER MACY11 30A(1052) 12-MAR-80 13:10 PAGE 59-14 
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-SBTTL ERROR POINTER TABLE 
>*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


3*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
: sLOCATION leet, arte NUMBER INDICATES os A ITEM IN THE TABLE IS PERTINENT. 


> «NOTE TEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

: *NOTE2: FACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOwS: 
3* EM ;;POINTS TO THE ERROR MESSAGE 

;* DH :;POINTS TO THE DATA HEADER 

:* DT ::POINTS TO THE DATA 

;* DF ::POINTS TO THE DATA FORMAT 


G.P 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 







:PARITY REGISTER DATA ERROR. 
“PC REG, S/B. 

: SERRPC . $SGDADR, SGDDAT , SBDDAT 
16,18, 16,16 


;ADDRESS TEST ERROR(TST1-5). 
;V/PC,P/PC .MA,S/B,WAS 


: SVERPC , SERRPC .$GDADR, $GDDAT , SBDDAT 
-16,18, aT 16,16 


:ADDRESS TEST ERROR(TST1-5). 
3V/PC,.P/PC .MA.S/B.WAS 

> $VERPC , SERRPC , SGDADR, SGDDAT , SBDDAT 
16,18, 18,8,8 


: CONSTANT DATA ERROR(TST6-10). 
-V/PC,P/PC MA, S/B,WAS 

> $VERPC , SERRPC .SGDADR. SGDDAT , SBDDAT 
16,18, 18.16.16 

:ROTATING BIT ERROR(TST11-12). 
-V/PC .P/PC MA, S/B,WAS 

> $VERPC .SERRPC . SGDADR. SGDDAT , SBDDAT 
16,18, 18,16, 16 


“MOS REFRESH TEST ERROR (TST30-31). 
:y/PC P/PC .MA,S/B.WAS 

ROC s SERRP C, $GDADR.$GDDAT . SBDDAT 
ts 18, 18,16. 1é 


027020 



















0 7250 (/besp7Pe mae S784 ERROR (TST13-16). 
001660 SVERPC SE t SADR, SGDDAT. SBDDAT 
030750 -16,18, Ce 161 


;MARCHING 1°S AND z S ERROR(TST27). 
:V/PC ,P/PC,MA,S/B,WA 
: SVERPC,SERRPC , SGDADR .SGDDAT , SBDDAT 





eS: Bee gtr 
65 001660 
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002436 
002440 
44 





030750 


027355 
080216 
001660 
030755 
027421 

3 


001674 
030755 


027475 
030443 
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ERROR POINTER TABLE 





SEQ 0032 


:16,18,18,16,16 


:PARITY MEMORY ADDRESS ERROR(TST17). 
“V/PC, C.P/eC MA, S/B, WAS 
 $VERPC , SERRPC , SGDADR, SGDDAT , S$RDDAT 


£16.18, 18.8. 


:DATIP WITH WRONG PARITY DIDN'T TRAP(TST17). 
:V/PC,P/PC MA, S/ 

* $VERPC , SERRPC , $GDADR, $GDDAT 

- 16,18, 18,8 


;WRONG PARITY TRAPED, BUT NO REGISTER SHOWS ERROR FLAG. 
:V/PC,P/PC MA, S 
: SVERPC , SERRPC, SEDADR, $GDDAT 


° 
e ° ad 6 


WRC OP BARE A NOT MAPPED AS CONTROLLING THIS ADDRESS(TST17). 
: SVERPC ,SERRPC , $TMPO, SGDADR 


:16,18,18,18 


:PARITY REGISTER DATA ERROR. 
:V/PC ,P/PC ,MAUT ,REG, S/B, WAS 
* $VERPC , SERRPC . $GDADR, $TMPO,, SGDDAT . SBDDAT 
716,18, 18,18, 16,16 
*MORE THAN ONE REGISTER INDICATED PARITY ERROR. 
“V/PC,P/PC,REG,.MA 

RPC SERRPC $TMPO, SGDADR 
:16,18,18,1° : 


:DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR 
> TRAPPED(TST21). 

*V/PC ,P/PC MA, S/B,WAS 

: $VERPC , SERRPC , SGDADR,, SGDDAT , SBDDAT 

216,18, ds 8,8 


:RANDOM DATA ERROR(TST20). 
*V/PC,P/PC MA, S/B, WAS 

VERPC , SERRPC . SGDADR, SGDDAT , SBDDAT 
Te 18 18. 16,16 


: INSTRUCTION EXICUTION ERROR(TST21-26). 
“V/PC .P/PC, IUT.MA,S/B. 

> $VERP .$TMPO, SGDADR, SGDDAT , SBDDAT 
16,18, 16,18, 16,16 
NOT USED 











;PROGRAM CODE CHANGED WHEN RELOCATED. 
;V/PC,P/PC,SRC MA,DST MA,S/B,WAS 


H 3 
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001754 D123 : SVERPC , SERRPC . $GDADR, SBDADR, SGDDAT . SBDDAT 
030762 renee -16,18, 18, 18,16, 16 

: TRAPPED, BUT NO REGISTER HAD ERROR BIT SET. 
DH24 :y/PC B/eC TRP/P 
D124 : SERRPC , $80 
DF 14 ena. 
* ITEM 25 
- TRAPPED TO 114. 
DH25 “V/PC, P/PC TRP/PC REG, WAS 
DT25 : SVERPC , SERRPC , SADADR.$TMPO, $TMP1 
DF Tee iB 18, 16 
:* ITEM 26 
:FAILED TO TRAP. 
DH26 iV/PC p/eC REG, WAS 
DI26  $VERP SERRPC. STMPO,$TMP1 
DF 16,1 1B iB. 
se TEM 27 
: (ACTION ENABLE WASN'T SET). 
DH26 -V/PC,P/PC REG, WAS 
D126 “$VERPC, SERRPC. S$TMPO, SBDDAT 
DF 16, 18, 18,1 
* ITEM 30 
0 NO MESSAGE . 
DH30 “REG, WAS 
DT 30 :STHO.§ ‘$ie1.8 SeDADR, SBDDAT 
* ITEM 31 
: TRAPPED TO 4 
0 sNO HEADER 
DT31 -STMP3 
DF 30 :18 


-SBTTL START: SETUP AND MAP MEMORY 


SAPNA ENS EN TSN SENT EN: ig ing LENSTENSSENEA ENE EN ESN EN ES ONSEN SRN: 
* THIS IS THE NORMAL = 200) BEGINNING OF THE PROGRAM. 

NOTE: THIS CODE 1s NOT POSITION INDEPENDENT. 
as NaS s\aSs\aSi\e/7s\e7\a7s\e7\e/S Ne \esS Ne NaS \e/s Nes \ es \ es \ asi \e 








6621 002650 105067 176702 START: CLRB SELFLG CLEAR SELECT PARAMETER FLAG. 
6622 002654 000403 BR STARTA -GO DO SETUP AND MEMORY MAP. 
6623 002656 112767 177777 176672 SELECT: MOVB #-1,  SELFLG ;SET THE SELECT PARAMETERS FLAG. 
6624 002664 STARTA: 

(1) -SBITL INITIALIZE THE COMMON TAGS 

(1) >; CLEAR THE COMMON TAGS (S$CMTAG) AREA 

(1) 002664 012706 001100 MOV ASCMTAG.RE ‘TEAR LOCATION TO BE CLEARED 
(1) 002670 005026 CLR (R6) + :CLEAR MEMORY LOCATION 

(1) 002672 022706 001140 CMP WSWR,R6 ::DONE? — 

(1) 002676 001374 BNE F :;LOOP BACK IF NO 

(1) 002700 012706 001100 MOV AMSTACK, SP :;SETUP THE STACK POINTER 

(1) :: INITIALIZE A FEW VECTORS 

(1) 002704 012737 000610 000024 MOV ASPWRDN , AF PWRVE : POWER FAILURE VECTOR 

(1) 002712 012737 000340 000026 MOV #340, OOPURVEC*> EVEL 7 

(1) 002720 016767 011242 011232 MOV SENDCT, SEOPCT asst: END-OF -PROGRAM COUNTER 
(2) sSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
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(2) ;;EQUAL TO A ‘=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 

(2) 902726 013746 MOV @FERRVEC.-(SP) ::SAVE ERROR VECTOR 

(2) 012737 002766 000004 MOV a#ERRVE C 

(2) 740 012767 177570 176172 MOV #DSWR, SWR 

(2) 002746 012767 177570 176166 MOV #DDISP,DISPLAY : HARDWARE 

(2) 002754 022777 177777 176156 CMP #-1 ,aSwR “TRY TO REFERENCE HARDWARE 

(2) 002762 001012 BNE 66$ ;7BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) 33 THE SWR IS NOT = -1 
(2) 002764 BR 65$ :BRANCH IF NO TIMEOUT 

(2) 002766 012716 002774 64$: MOV #65$, (SP) «SET UP FOR TRAP RETURN 

(2) 002774 012767 000176 176136 65$: MOV #SWREG, SWR ::POINT TO SOFTWARE SWR 

(2) 003002 012767 000174 176132 MOV #DISPREG, DISPLAY 

(2) 003010 012637 000004 66$: MOV (SP)+, QMERRVEC ;:RESTORE ERROR VECTOR 

(2) 007014 005067 176172 CLR SPASS :CLEAR PASS COUNT 

(2) 003020 132767 000200 176177 BITB #$#APTSIZE.SENVM TEST USER SIZE UNDER APT 

(2) 003026 001403 BEQ 67$ :: YES,USE NON-APT SWITCH 

(2) 903030 012767 001226 176102 a MOV ASSWREG, SWR = :NO,USE APT SWITCH REGISTER 
6625 003036 005067 176460 CLR LDDISP :CLEAR DISPLAY REGISTER STORAGE LOCN 
6626 003042 005077 176074 CLR QDI SPLAY -CLEAR DISPLAY REGISTER 
6627 _SBTTL TYPE PROGRAM NAME 

(1) >: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 

(1) 005227 177777 INC #=1 i FIRST TIME? 

(1) 003052 00104 68$ H IF NO 

(1) 003054 022737 014232 000042 ASENDAD , 842 :TACT=112 

(1) 0014 > ;BRANCH IF YES 

(2) 004567 020432 RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 003070 003142 .WORD 69% “ADDRESS OF MESSAGE TO BE TYPED 

(2) .SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 

(2) 003072 005737 000042 TST arse : ARE WE RUNNING UNDER XXDP/ACT? 
(2) 003076 001015 ; 3BRANCH IF YES 

(2) 003100 126727 176120 000001 CMPB sé #11 WE RUNNING UNDER APT? 

(2) 003106 0014171 BEQ 70$ = ;BRANCH IF YES 

(2) 003110 026727 176024 000176 Chap SWR . ASWREG ;ZSOFTWARE SWITCH REG SELECTED? 

(2) 003116 001010 BNE 71$ - =BRANCH IF NO 

(4) :* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $GTSWR ROUTINE 
(4) >* WIHTOUT USING A ‘TRAP’ INSTRUCTION AS CALLED FOR BY **SYSMAC®*®. 
(4) 003120 013746 177776 MOV aePSW. -(SP)  ;:PUT THE PROCESSOR STATUS ON THE STACK 
(4) 003124 004767 017316 JSR PC $GTSWR :GO TO THE SUBROUTINE 

(2) 003130 000403 BR 71 

(2) 003132 112767 000001 175774 708:  MOVB so #'1, SAUTOB ::SET AUTO-MODE INDICATOR 

(1) 003140 000405 BR 68$ ::GET OVER THE ASCIZ 

(1) -:69$: .ASCIZ <CRLF>*CZQMCGO'<CRLF> 

(1) 003154 68$: 
6628 003154 010700 MOV PC, RO :GET CURRENT PROGRAM COUNTER 
6629 003156 022700 003156 CMP #. RO ; CHECK IF THE PROGRAM IS RELOCATED. 
6630 003162 001402 BEQ 10$ F PROGRAM NOT RELOCATED. 
6631 003164 167 175110 JMP RESTAR “60 TRY TO RELOCTED BEFORE CONTINUING. 
6632 003170 012767 000003 175404 10$: #MOV #3, PR ; INITIALIZE PROGRAM MAP....LO 64K. 
6633 003176 005067 175402 CLR PRGMAP+ 
6634 003202 005067 175372 CLR RELOCF “INIT THE "RELOCATION FACTOR. 
6635 003 105737 001224 TSTB. »=—s- AA SENV *CHECK FOR APT11 
6636 003212 001011 13$ “BR IF APT11 
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6637 
38 


ar A 
BANAAS 


~~) 
— ww 


668 





BEREREE 


003214 


003032 
003280 
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005737 


012767 


004 
025431 
012737 


000042 
000042 


014122 


000046 
175670 


000004 


000004 
174420 
176262 


VER MACY11 30A(1052) 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


a42 
13$ 
A42 ,a#46 
13$ 


JSR 


:* CHECK IF MEMORY MANAGEMENT IS AVAILABLE, 
13s: MMAVA CLE 


CLR AR MEM MGMT AVAILABLE FLAG 
BIT #SW12, a@SWR ; CHECK FOR INHIBIT KT11 SwITCh 
BNE IMPCK H IF SET 
MOV #IMPCK , @#ERRVEC SET UP TIMEOUT TRAP VECTOR 
CLR “CLEAR MEM MGMT STATUS REG 
JSR PC, MMINIT :MEM MGMT INITIALIZATION, ROUT INE. 
INC MMAV “SET MEM MGMT AVAILABLE FLAG 
JSR R5, SPRINT =GO PRINT OUT THE FOLLOWING MESSAGE. 
_WORD MMAMES ;ADDRESS OF MESSAGE TO BE TYPED 
-'KT11 AVAILABLE’ 
zs CHECK IF CACHE PRESENT, IF SO TURN IT OFF!!! 
IMPCK: MOV WSTACK, SP 
CLR CASFLG =CLEAR CACHE PRESENT FLAG 
MOV AMAPMEM , AWERRVE C 
BIS #14, IMPCHE 
MOV #1, CASFLG ;SET CACHE PRESENT FLAG 
SF AERA REEEEAARAAARAEREAREEAEEAAEKARAAEAAAAREEREREARRAREREEEEKEEREEE 
-* ROUTINE TO MAP ALL OF MEMORY. 
>* ONLY FULL 4K BANKS WILL BE RECOGNIZED. 
;* = MEMMAP POIN NTER...LO 64K. 
;* INTER.. , 64K. 
;* INTE 
:* POINTER...LO 64K 
:* = BANK POINTER...HI 64K 
:* RS = SCRATCH REGISTER. 
pe  PAREERARERRAREDERRETORTERAEREEEERAERAERARERATERERREREEREREREEKE 
MAPMEM: MOV *RESET THE STACK 
MOV ;SET UP <reMoR’ MAP POINTER...LO 64K. 
CLR (RO) cia MEMORY MAP...LO 64K. 
CLR (R1) >. .eH] 64K. 
CLR R2 «SET ADDRESS POINTER TO 0 
Mov 4 : R3 “SETUP 4K BANK POINTER...LO 64K. 
CLR $TMP INIT Y HIGH ADDRESS BITS. 
JSR RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE 
.WORD ME : ADDRESS OF MESSAGE TO BE TYPED 
MOV #2$, aWERRVEC :SET UP TIMEOUT VECTOR 
1$: MOV (R25, (R2)+ ;READ+WRITE ALL MEMORY 
BIT WMASKGK .R2 C BOUNDRY 
BNE 1$ “BRANCH MORE 
BIS R3, (RO) ;SET FLAG FOR Fd .LO 64K. 
BIS Rz. (R1) HI 
MOV R2, $TMP2 « SAVE ADDRESS POINTER. 
DEC $T “ADJUST TO LAST ADR, LAST BANK. 


1 5 WaR-80 


PC,SAVLDR 




















13:10 PAGE 59-18 
;CHECK FOR STANDALONE 
;BR IF STANDALONE 
;CHECK FOR ACT11 

:BR IF ACT11 


sMUST BE XXDP 
;GO SAVE LOADERS 

















AND aah IT oe IF IT IS. 


| 


SEQ 0035. 
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TST MMAVA :CHECK FOR MEM MGMT. 
BEQ 3$ -BR IF NO MEM MGMT. 
175520 BIC #160000,$TMP2 :CLEAR BANK BITS ON RELATIVE ADDRESS. 
MOV AFKIPAR? RS *SAVE KIPAR2. 
CLR STMP3 “MAKE SURE HI BITS ARE INIT. 
ASL RS “SHIFT IT 6 PLACES. 
ASL R5 
ASL R5 
ASL R5 
ASL R5 
ROL $TMP3 
ASL R5 
ROL $T 
ADD RS, S$TMP2  ;:MAKE LAST ADR PHYSICAL. 
ADC $TMP3 
BR 3$ -GO TO UPDATE POINTERS. 
-* TIMEOUT TRAPS TO HERE 
2$: CMP (SP)+, (SP)+  <:RESTORE THE STACK POINTER 
BIS WMASK4SK ,R2 “LAST ADDRESS OF 4K BANK 
INC R2 -FIRST ADDRESS OF NEXT BANK. 
3$: TST MMAVA =CHECK FOR MEM MGMT 
BEQ 4$ “BRANCH IF NO MEM MGMT 
172344 ADD #200, @#KIPAR2 ;:UPDATE THIRD PAR 
MOV #40000, R2 “POINT TO START OF THIRD PAR 
ASL R3 “UPDATE LO BANK POINTER. 
ROL R4 “UPDATE HI BANK POINTER 
BPL 1$ “BRANCH IF MORE MEMORY TO MAP. 
BR 5$ “EXIT WHEN DONE. 
4$: ASLB-—s RB : UPDATE MAP POINTER 
BPL 1$ “BRANCH IF NOT YET DONE 
025124 000004 5$ MOV WERRTRP, LaFERRVEC :RESET TIMEOUT VECTOR 
014632 PC, TYPMAP TYPE THE MAP. 
017726 R5, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE . 
SCRLF =ADDRESS OF MESSAGE TO BE TYPED 
175732 (RO),  SAVIST _;SET uP TEST MAP...LO 64K. 
175730 (R1),  SAVTST#2 :...H 
(RO) RO ‘ 
177760 #177760, fo -MASK ALL BUT BOTTOM 4 BANKS 
000017 RO, *CHECK THAT BOTTOM 16K IS ALL THERE! 
GMPR “BRANCH IF BOTTOM 16K EXISTS 
017674 RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
.WORD INSUFF ; ADDRESS OF MESSAGE TO BE TYPED , 
"FIRST 16K OF MEMORY NOT ALL THERE! 
6S: HALT “FATAL ERROR HALT... 
“MEMORY IS NOT CONFIGURED TO RUN THIS PROGRAM. 
: .  CERREREERERRERRAREAEEEAEEREERRARRERREARERERERREARRAERARREREREERE 
>* SPECIAL ROUTINE TO TYPE OUT ALL UNIBUS ADDRESSES WHICH RESPOND TO 
:*  DATI, DATIP, DATO, AND DATOB. 
2 ‘  RHRRKREARARAERRERERERERERERERARARERAREERERERERERRAERERERERREEE 
TIMOUT: MOV WSTACK, SP :SET UP THE STACK POINTER. 
174764 CLR MMAVA “CLEAR MEM MGMT AVAILABLE FLAG. 
010000 175270 BIT #SWi2, @SWR § :CHECK IF MEM MGMT TO BE INIBITED. 
BNE 1 “BR IF NO MEM MGMT. , 
003674 000004 MOV #1$. | aW#ERRVEC :SET TIMEOUT FOR MEM MGMT CHECK. 
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SEQ 0036 
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00 
00 








004567 
025527 


005302 
giGe9 
004767 





177572 


010420 


174712 
017622 


003752 
000001 


017562 
021212 
017536 
021164 


017777 
174566 
007600 


060000 
172346 
000200 
017436 


021064 


172346 


172344 
172346 


16K VER 


GET 


1$: 


10$: 


118: 


** 


— 20 


ne 


31$: 


32$: 
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CLR awsRo :CHECK FOR MEM MGMT...TIMES OUT IF NONE. 
JSR PC, MMINIT INIT ALL MEM MGMT REGISTERS. 
INC MMAVA *SET MEM MGMT AVAILABLE FLAG. 
JSR SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE . 
: BYTMES “AD SSAGE TO BE TYPED 
CLR RO TYPE OUT FLAG. 
CLR R2 *SET ADDRESS POINTER TO ZERO. 
MOV #20$,  a#ERRVEC ;SET TIME OUT VEC TO SERVICE NON-EX MEM. 
TSTB.—s_s« (Re) :DO DATI ONLY. 
BIT WBITO, R2 “CHECK FOR WORD Ss. 
1$ “BR IF ODD BYTE ADDRESS. 
V (R2), (R2) :DO0 DATI, DATO...NOP FOR READ ONLY 
BISB (R2). (R2)  :DO DATI. DATIP, DATOB... NOP FOR READ ONLY MAP. 
TST RO “CHECK FOR PREVIOUS TYPOUT. 
BNE 30$ “BR IF ALREADY TYPED ‘FROM’’ 
JSR R5, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
“WORD FROM ; ADDRESS OF MESSAGE TO BE TYPED 
MOV R2, -(SP) :PUT THE DATA ON THE STACK. 
JSR PC STYPAD :DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 
BR 29$ *GO TO ADDRESS POINTER UPDATE. 
TIME OUTS COME HERE. 
: CMP (SP)+, (SP)+  ;:POP TWO OFF STACK. 
TST RO “CHECK FOR PREVIOUS TYPOUT. 
BEQ 30$ “BR IF ALREADY TYPED TO 
JSR RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
: TO : ADDRESS OF MESSAGE TO BE TYPED 
DEC R2 :BACK UP ONE BYTE. 
MOV R2, -(SP) =PUT THE DATA ON THE STACK. 
JSR PC, STYPAD :DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 
INC R2 =RESET ADDRESS POINTER. 
COM RO “RESET PREVIOUS TYPOUT FLAG. 
INC R2 “UPDATE ADDRESS POINTER TO NEXT BYTE. 
BEQ 31$ “EXIT IF ZERO REACHED. 
BIT WMASK4K ,R2 *CHECK FOR 4K BANK BOUNDRY. 
BNE 10$ “BR IF MORE THIS 4K BANK. 
TST MMAVA “CHECK IF MEM MGMT IS AVAILABLE. 
BEQ 10$ “BR IF NO MGMT. 
CMP #7600, @*K IPAR3- *CHECK FOR END OF LAST 4K BANK. 
BEQ 31$ T WHEN ALL DONE. 
MOV #60000, R2 SRESET VIRTUAL ADDRESS POINTER. 
MOV @FKIPAR3,a#KIPAR2 ;SAVE MEM MGMT REG FOR TYPEOUT. 
ADD #200,  QWKIPARS- -ippate MEM MGMT REG 2 TO NEXT 4K BANK. 
BR 10$ BACK TO DO NEXT BANK. 
TST RO OUS TYPE FLAG BEFORE EXIT. 
BEQ 32$ 
JSR RS, SPRINT PR 
-WORD TO : ADDRESS OF MESSAGE TO BE TYPED 
DEC R2 “BACK ADDRESS POINTER UP ONE BYTE. 
MOV R2, -(SP) =PUT THE DATA ON THE STACK. 
JSR PC, INE THE PHYSICAL ADDRESS AND TYPE IT. 





STYPAD ;DETERM 
;* THIS ROUTINE IS FOR DEBUG USE ONLY. 


SEQ 0037 
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;* TO RUN THE MAIN PROGRAM RESTART AT 200 OR 204. 
004100 000654 BR TIMOUT ;LOOP BACK AND DO AGAIN UPON CONTINUE. 


-SBTTL MAP PARITY REGISTERS 


SS EERE AAEEAEAAEAARARAEAEEAEAERAEARAAREREERAERAERAERERREEREAEREEHKHE 

















:* SEARCH FOR PARITY REGISTERS PRESENT AND TYPE ADDRESSES OF THOSE FOUND 
** THAT ARE FUNCTIONAL AND HAVE CORRESPONDING PARITY MEMORY 
custqusalanctassagpatonsinastaestetbagenasenssaenestaassoues 
004102 012704 002276 GMPR: MOV WMPRX, RG :SET UP POINTER TO PARITY REG EXIST TABLE. 
004106 032777 000100 175024 BIT #SWO6, @SWR  :CHE T PARITY SWITCH. 
004114 001036 BNE GMPRD ; 
004116 012703 002076 MOV WMPRO, R3 =SET UP POINTER 
004122 012737 004144 000004 MOV WGMPRB, a#ERRVEC ;SET up TIMEOUT TRAP SERVICE 
6800 004130 042713 000001 GMPRA: BIC #1, (R3) : CLEAR FLAG BIT INT 
004134 005773 000000 TST a(R3) THIS MEMORY PARITY REGISTER EXIST. 
6802 ze IF IT DOESN'T EXIST. A TIMEOUT TRAP WILL GO TO ‘‘GMPRE’’. 
6803 004140 012324 MOV (R3)+, (RG’+ = :SAVE IT IN THE PARITY REG EXIST TABLE. 
6804 004142 000403 BR GMPC’ “SKIP TIMEOUT SERVICE CODE 
6805 :* TIMEOUT COMES HERE 
6806 004144 022626 GMPRB: CMP (SP)+, (SP)+  :RESTORE STACK POINTER 
6807 004146 052723 000001 BIS #1 (R3)+  =SET FLAG TC INDICATE REGISTER NOT PRESENT 
6808 004152 005023 GMPRC: CLR (R3)+ “CLEAR THE MAP...LO 64K. 
6809 004154 CLR (R3)+ >. .H1 64K. 
6811 004156 005023 CLR (R3)+ :...AND THE MASK. 
6812 004160 020327 002276 CMP R3, #MPRX “HAVE WE CHECKED ALL REGISTERS? 
6814 004164 103761 BLO GMPRA :NO - GO BACK TO CHECK NEXT ONE 
6815 004166 005014 CLR (R4) ;SET TERMINATOR IN PARITY REG EXIST TABLE. 
6816 004170 012737 025124 000004 MOV WERRTRP,a@#ERRVEC ; RESTORE TRAPCATCHER 
6817 004176 005767 176074 TST MPRX :ANY PARITY REGISTERS PRESENT? 
6818 004202 001006 BNE “YES = GO TEST CONTROLS PRESENT 
6819 004204 004567 017312 JSR SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 004210 025615 : ; ADDRESS OF MESSAGE TO BE TYPED 
(1) *"NO MEMORY PARITY REGISTERS FOND'' 
6820 004212 005014 GMPRD: CLR “MAKE SURE TABLE IS CLEAR. 
6821 004214 000167 001156 JMP MANUAL :AND SKIP ALL CONTROLS TESTING 


SEQ 0038 
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3 
0858 


68 

6831 
6832 
6833 
6834 
6835 





e 


0043 


oRRPESRESERGS 
WRB RSSS ORS SS 


014054 
00000 

175310 
014000 
174340 
054000 
0100350 


— 


175254 


007740 
070032 
077772 
007740 


175312 


MAP PARITY 


~~ gent 1032) 
MEMOR 


- SBTTL MAP PARITY MEMORY 


MmARRBAABSAASAALALALASALARALAR RARER ARRRRARRARRR AR ARRRARRARRRAR RAR SS A SO | 





;MAP_ CORRESPONDENCE 
:NOTE THAT IF PARITY MEMORY 
TY a ONE OF THE Carty bite’ FAILURES: 





BETWEEN PARITY REGISTERS AND MEMORY, 
IS NOT 


N 3 
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AND TYPE RESULTS 
LOCATED CORRECTLY THAT IT IS IN ALL 


Y DIDN'T iy BAD PARITY TO BE WRITTEN 


| TO SET 
- PARITY BITS IN MEMORY LOCATION FAILED 
~- I.E. BIT STUCK AT GOOD PARITY VALUE 


MPAMEM: JSR 
MOV 


PC, CLRPAR 


#1, BITPT 
BITPT+2 
#14000, R2 
MMA 


MAPRB 
#54000, R2 
PC, MMINIT 


SRAERERKEKKEREKEKEERAKEEEEEEEKKKKEKKEREAREKRAEERAERREEREEREREREREREKEE 


sINITIALIZE ALL PARITY REGISTERS 
: INITIALIZE 4K POINTER 


>CL 64K POINTER 
;SET ADR POINTER TO 14000. 
;CHECK FOR MEM MGMT 


;BRANCH IF NO MEM MGMT 
;SET ADR POINTER TO PAR2 


:SET UP ALL MEMORY MGMT REGISTERS. 


icy Lite ae ATTY ta xc ea— 


SET WRITE 


WRONG PARITY IN ALL REGISTERS PRESENT 


* THEN WRITE TEST LOCATION VIA an O & READ TEST LOCATION VIA DATI 
WRITE WRONG PARITY 


:* THEN CLEAR 


IN ALL REGISTERS. 


“RARER KKEAKKKAKAAAEAEAEAEEEKEKEKKEKEKKKKEKRAEKKKKKAKKAKKEKEEEKKEKKEKKKKK 


MAPRB : 


1$: 
2$: 


5$: 
6$: 


7$: 


—«3$: 


CLR 
CLR 


MOV 
BIT 


PMEMAP 

PMEMAP +2 
#MPRO, R53 

(R3) 
a(R3) 
(R2) 
a(R3) 





a(R3) 
e0Use . 6(R3) 
#77772, 6(R3) 
a(R3) 
#70000, 6(R3) 
BITPT, R3) 
BITPT+2,4(R3) 
BITPT, 


MN 
~ 


BITPT+2,PMEMAP+2 
tt R3 


R3, #MPRX 


;CLEAR THE PARITY MEMORY MAP 


s INITIALIZE TABLE ADDRESS 
71S THIS REGISTER PRESENT? 
:NO - GET THE NEXT ONE 


XT 
sYES - SET WRITE WRONG PARITY 
;AND CLEAR REST OF REGISTER 
e WRI TE WRONG PARITY 
sREAD WRONG PARITY 
[CLEAR WRITE WRONG PARITY 
:OTHERWISE, CHECK TO SEE IF THIS 
; CON TROL REGISTER GOT A PARITY 


;BRANCH iF IT 3 al 1 _ CHECK 
:IS IT A CORE P 
sBRANCH IF 


:IF IT IS SET UP MASK 
;AND BRANCH - SET BITS. 


MASK 
“SET FLAG IN MAP FOR THIS PARITY REGISTER 
;SET FLAG IN PARITY MAP 


:STEP UP TO NEXT REGISTER 
;ARE WE DONE WITH TABLE? 


SEQ 0039 


QMC 0-124K MEMORY 7 el 16K VER mv ZOACIO3e) 13-#ar-80 13:10 PAGE 59-23 
CZQMCG.P11 12-MAR-80 13:07 MAP PARITY MEMOR SEQ 0040 


MPs 
“s 






























$880 004436 2$ :GO BACK TO CHECK FOR ANY MORE! 
1 004440 (Re), (R2) =CLEAR BAD PARITY 
004442 174140 : CHECK FOR MEM MGMT 
rere 004446 0S. BR IF NO MEM MGMT 
6884 004450 000200 172344 4$: #200,  a*KIPAR2’ ;UPDATE PAR TO NEXT 4K BANK. 
5 004456 175062 BITPT -UPDATE BANK POINTER...LO 64K. 
6886 00.462 175060 BITPT+2 
6888 $0249 172344 001000 avk IPAR2 ,#1000 
6889 004476 BNE 
6890 004500 000003 002260 BIT #3. aHMPR14+2 
6891 004506 BNE 
6892 004510 000003 002270 BIT #3, aAMPR15+2 AS THE C 
6893 004516 BEQ 13$ WRITE WRONG PARITY. 
6894 0065 020004 001612 13$: MOV #20004 , afwwP 
6895 004 175012 174770 12$: #£BIT BITPT, MEMMAP ;:CHECK IF BANK EXISTS...LO 64K. 
6896 0045 BNE 1 “BR IF BANK EXISTS. 
6897 004536 175004 174762 BIT BITPT+2,.MEMMAP+2. ise sHl 64K. 
6898 006544 BNE 1$ 
6899 004546 BR 4$ 
6900 004550 174770 174746 11%: BIT BITPT, MEMMAP 
6901 004556 BNE 1 EXISTS. 
004560 020000 10$: ADD #20000, R2 UPDATE ADDRESS POINTER TO NEXT BANK. 
004564 176754 ASLB = BI TPT “MOVE POINTER TO NEXT BANK. 
004570 BPL 11$ “BR IF MORE TO LOOK FOR. 


“REKEAAAAAAAEAAAAAAEAAAAAAEAAAAARAARAARAAAAEARARAEAARAARAERARARARAKKKKKE 


<% ROUTINE TO TYPE MAP OF WHERE PARITY MEMORY IS PRESENT 
:* AND WHICH CONTROL REGISTERS CONTROL WHICH MEMORY 


SE AREAAAAAAAEAAEAAAAAAAAREAREAEEAEAAAARAEAARAAAEAREAAEKEARAERRAARAKRARKEKRKE 





SEE EEE 











004572 004767 013502 TMAP: JSR PC, — CLRPAR  ; INITIALIZE ALL PARITY REGISTERS PRESENT 
6912 004576 004567 016720 R5, SPRINT GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 004602 025472 MTMAP ZADDRESS OF MESSAGE TO BE TYPED 
(1) ;PARITY MEMORY MAP:° 
6913 004604 012703 002076 #MPRO, R3 INITIALIZE TABLE POINTER 
6914 004610 032713 000001 1$: WBITO, (R3) [CHECK IF THIS REGISTER IS PRESENT. 
6915 004614 001046 BNE :BR IF NOT PRESENT. 
6916 004616 022763 070032 000006 CMP =—- #70032, 6(R3) 
6917 004624 001004 BNE 
E918 004626 004567 016670 JSR RS SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 026133 “WORD MXS ZADDRESS OF MESSAGE TO BE TYPED 
(1) :CORE PARITY 
6919 004634 000417 BR 5$ 
6920 004636 022763 077772 000006 3$: CMP #77772, 6(R3) 
6921 004644 001004 BNE 4$ 
6922 O046646 004567 016650 JSR RS, ~—Ss SPRINT §=;GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 004652 026152 WORD  MX4 ZADDRESS OF MESSAGE TO BE TYPED 
(1) :"MOS PARITY 
6923 004654 000407 BR 5$ 
6924 004656 022763 070000 000006 4$: CMP = #70000, 6(R3) 
6925 004664 001003 BNE 
6926 004666 004567 016630 JSR RS SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 006672 026170 WORD MX5 “ADDRESS OF MESSAGE TO BE TYPED 
: i 


5$: 


oO 
% 
N 
~ 
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(2) 004674 004567 016622 JSR RS SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE . 
(2) 004700 026101 “WORD = MX Mei Stes OF pas TO BE TYPED 
6928 004702 011346 MOV (R3),- SAVE (A) TYPEOUT 
(3) ;* THE NEXT TWO INSTRUCTIONS I ons pains AN INTERFACE TO THE STYPOC ROUTINE 
(3) > WIHTOUT USING A ‘'TRAP’’ INSTRUCTION AS CALLED FOR BY **SYSMAC**, 
(3) 004 013746 177776 MOV aePSw, <-(SP)  ;:PUT THE PROCESSOR STATUS ON THE STACK 
(3) 004710 004767 020004 JSR : :GO TO THE SUBROUTINE 
6929 004714 004567 016602 JSR 5 SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 004 026120 “WORD MX2 :ADDRESS MESSAGE TO BE TYPED 
MOV R3 RO *SET UP RO FOR TYPMAP ROUTINE. 
TST (RO) + “UPDATE POINTER TO MAP. 
013470 JSR PC TYPMAP :GO TYPE THE MEMORY COVERED BY THIS REGISTER. 
000010 2$: ADD #10, RB “UPDATE TO NEXT REGISTER IN TABLE. 
002276 CMP R3, WMPRX =; ARE We ALL DONE WITH TABLE? 
BLO 1$ ; F MORE REGISTERS 
016552 JSR RS, SPRINT :THE REASON 1°M OUTPUTTING THIS CRLF 
SCRLF -IS TO GIVE THE PRINTER ENOUGH TIME TO 
“FINISH PRINTING THE MEMORY MAP BEFORE THE RESET OCCURS. 
070000 002264 CMP #70000, a4MPR14+6. ;0 WE HAVE MS11-K AT THIS ADDRESS 
BNE 7$ BRANCH 
002260 001540 BIC QYMPR14+2, PMEMAP iF YES THEN CLEAR THE BITS IN 
002262 001540 BIC QWMPR14+4 a4PMEMAP :THE PARITY MEMORY MAP. 
07 002274 7S: CMP 70000. Q4MPR15+6 :DO WE HAVE A MS11-k 
BNE 9$ -IF NO GO TO TESTS NOW. 
002270 001540 BIC @HMPR15+2, aePMEMAP :IF YES I AM GOING TO 
002272 001542 BIC @NMPR15+4,a4PMEMAP+2 = CLEAR THE PARITY INDICATORS 
002276 MOV WMPRX, R :FOR THAT PORTION OF MEMORY. 
002256 6S: CMP *° (RS),a#MPR14 =SEARCH FOR THIS MS11-K CSR IN 
BNE -AND IF ITS THERE DELETE IT 
CLR (RS) 
1 002256 BIS 1, aeMPR14 
002266 8$: CMP (R5)+, a@AMPR1S ;SEARCH FOR MS11-K CSR_IN 
BNE “THE AVAILABILITY TABLE, 
CLR “AND CLEAR ITS ADDRESS FROM THE TABLE 
1 002266 BIS >SET BITO IN ADDRESS IN CSR TABLE 
016434 JSR -OUTPUT MESSAGE TO RUN MS11-K TEST. 
002276 9$: TST :ARE THERE ANY PARITY REGISTERS TO TEST? 
BNE “IF SO TEST THE BITS IN THE REGISTERS 
000274 JMP -1F NO JUMP OVER REGISTER TESTS. 
.SBITL TEST PARITY REGISTERS 
; S AAAAEAAAAEAAARERARARAERAEEERRAKEAARAERERAEERERARAERRERRERAERAAAERRERRAER 
:* SHOW THAT BITS 0. 2. 5 - 11. AND 15 OF EACH PARITY REGISTER PRESENT 
>* CAN BE SET AND CLEARED. 
:« THIS IS A ONCE ay TEST. 
b ; “RARE EKAAEARARAAAERAAEAAEAATACAAERARARAAERAARAEKRARARARARARAREARRAREREREREE 
002076 CTRLS: MOV R3 ;LOAD INITIAL TABLE ADDRESS FOR A POINTER 
1$: MOV Re “LOAD R2 WITH ADDRESS OF THIS PARITY REGISTER 
000010 ADD R ‘UPDATE POINTER TO NEXT PAR. REG. ADD. 
000001 BIT R2 “1S THIS REGISTER BEING USED? 
BNE -GO TO NEXT IF NOT 
002276 CMP R3, #MPRX  =ARE WE AT END OF TABLE 
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CZQMCG.P11 TEST PARITY REGISTERS SEQ 0042 
005126 003055 BGT Seas :GO TO NEXT TEST IF YES 
0051 763 177776 TST (R3) - TEST FOR PARITY REGISTER 
005134 001764 BEO NOT TEST 
005136 016367 177776 174352 MOV ~3(R3), RESRVD STER WE ARE WORKING ON 
005144 012700 000001 MOV #1 RO [LOAD RO WITH VALUE OF 1ST BIT TESTED 
005150 005012 CLR (R2) ONITIALIZE THE PARITY REGISTER 
005152 011201 MOV (R2), RI “READ THE CONTENTS OF THE PARITY REGISTER 
005154 046701 174336 BIC RESRVD, R1 “CLEAR BITS WHICH ARE RESERVED 
005160 001405 BEQ 2$ *CHECK OTHER BITS - BRANCH IF OK 
005162 004767 013134 64$: JSR PC, SPRNT SET UP VALUES FOR ERROR PRINTING. 
005166 004767 014456 JSR PC, SERROR = ERROR ae (GO TYPE A MESSAGE) 
005172 000001 “WORD 1 “ERROR T YPE CODE. 
005174 030067 174316 2$: BIT RO. RESRVD ;1S THIS BIT RESERVED? 
005 001025 BNE 3$ -YES = DON'T TEST IT 
005202 010012 MOV RO (R2)  =NO = SET THIS BIT IN THE PARITY REGISTER 
005204 011201 MOV (R2), RI “READ & SAVE CONTENTS OF THE PARITY REGISTER 
005206 005012 CLR (R2) “CLEAR THE PARITY REGISTER 
005210 046701 174302 BIC RESRVD, R1 “CLEAR BIT LOCATIONS THAT ARE RESERVED 
005214 020001 CMP RO R1 =COMPARE THE CHECK WORD WITH THE DATA READ. 
005216 001405 BEQ 66$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
005220 004767 013126 65$: JSR PC, SPRNTO :SET UP VALUES FOR ERROR PRINTING. 
005224 004767 014420 JSR PC, SERROR :*s* ERROR *** (GO TYPE A MESSAGE) 
005230 000001 oil "WORD 1 “ERROR TYPE CODE. 
005232 011201 MOV (R2), R17 :READ THE CONTENTS OF THE PARITY REGISTER 
005234 046701 174256 BIC RESRVD. R1 RESERVED 
005240 001405 BEQ 3$ 
005242 004767 013054 67$: JSR PC, SPRNT INTI 
5246 004767 014376 JSR PC, SERROR : a ERROR aes (GO TYPE A MESSAGE) 
005252 000001 “WORD 1 “ERROR TYPE CODE. 
005254 006300 3$: ASL RO ROTATE TO GET NEXT BIT TO BE TESTED 
005256 103346 BCC 2$ H IF NOT DONE WITH ALL BITS 
005260 000712 BR 1$ “AFTER TESTING FOR BIT 15 GO GET NEXT REGISTER. 
ae "“KEAXAAKAAAARAKKARARARAAARAAEEAARERARARAKRARARAKRAARAAAAARAAAAKRARAKAKKEAKAKEKREK 
** SHOW THAT RESET CLEARS BITS 0.2. AND 15 OF EACH PARITY REGISTER PRESENT. 
:* THIS IS A ONCE ONLY TEST. 
3 « RERERARERERARERERAREORERERERARERRERAEEAEERRERRERERERERRERERERES 
005262 012704 002076 RESCHK: MOV WMPRO, RG :LOAD INITIAL TABLE ADDRESS FOR A POINTER 
005266 010403 1$: MOV R4 R3 
005270 062704 000010 ADD #10 R4 
005274 000001 BIT #1, (R3) -1$ THIS REGISTER BEING USED 
005 BNE :BRANCH | 
005302 177777 000000 MOV a(R3) :SET ALL BITS TOA 1 
005310 002276 CMP WMPRX  R “ARE WE AT THE END OF THE TABLE 
005314 BLT 1$ “IF YES THEN WE ARE READY TO TEST 
005316 RESET “RESET THE WORLD 
005 002076 MOV WMPRO, R3 “LOAD INITIAL ADDRESS FOR POINTER 
005324 2$: MOV (R3), Re “STORE PARITY REGISTER ADDRESS 
005 000010 ADD #10, R3 
005332 000001 BIT #1, R2 
005336 BNE 2$ 
005340 002276 CMP WMPRX, R3 
005344 BGE MANUAL 
005 346 MOV (RZ), RT -GET CONTENTS OF REGISTER 
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CFomce. P11 12=MAR TEST PARITY REGISTERS SEQ 0043 
7022 005350 005012 CLR (Re) 
7023 005352 042701 077772 BIC #77772, RI :CLEAR BITS NOT EFFECTED BY RESET 
7024 005356 005701 TST R1 >CHECK IF REST WERE CLEARED BY RESET 
7025 905 360 001405 BEQ 65$ “BRANCH OVER ERROR CALL IF GOOD DAT A. 
(2) 005 004767 012734 64%: JSR PC, SPRNT  :SET UP VALUES FOR ERROR PRINTING. 
(3) 005366 004767 014256 JSR PC, SERROR :*e* ERROR *** (GO TYPE A MESSAGE) 
(3) 005372 000001 “WORD 1 “ERROR TYPE CODE. 
(1) 005374 65$: 
7026 005374 000753 BR 2$ :BRANCH BACK TO CHECK NEXT REGISTER 
7028 
7009 005376 012700 000014 MANUAL: MOV wi2., RO :SET COUNTER 19 CLEAR 12 WORDS. 
7030 005402 012701 001562 MOV #FSTADR,RI “STARTING AT FSTADR. 
7031 005406 005021 1S: CLR (R1)+ “CLEAR THE LOCATIONS. 
7032 005410 005300 DEC RO : COUNT. 
7633 005412 001375 BNE 1$ “BR IF MORE. 
7034 005414 105767 174136 TSTB ~—s-_ SELF LG “CHECK FOR SELECT PARAMETERS STARTUP. 
7035 005420 001005 BNE MANUL 1 “BR IF PARAMETERS TO BE SELECTE?. 
703% 005422 016767 173536 174144 MOV S$TMP2. LSTADR :SET UP VIRTUAL LAST ADDRESS. 
7037 005430 000167 000402 JMP MANUL 2 > SKIP PARAMETER SELECTION SECTION. 
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EXERCISER, 16K VER MACY11 30A(1052) 13:10 PAGE 59-27 
13:07 USER PARAMETER SELECTION SECTION 
_SBTTL USER PARAMETER SELECTION SECTION 
FF SPARE AAAARAAAAAAAAAEAAAAAAAAAAAAAAAARAAAAAAARRARAREAAAAARERNAEE 
=* USER PARAMETER SELECTION SECTION IS ENTERED BY STARTING AT 204. 
“ERE EAAARAEAEARAARARARALEREAEAEAEAARARARAARARARARARARAARARAREREREAEAEAERAREAEAE 
000001 MANUL1: MOV 81 TO, RO :SET UP (oan POINTER. 
CLR R2 ; CLEAR ADDRESS POINTER. 
CLR R3 HI ADDRESS BITS. 
016050 JSR RS SPRINT <GO' PRINT OUT THE FOLLOWING MESSAGE. 
“WORD FADMES :/ DRESS OF MESSAGE TO BE TYPED 
;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $RDOCT ROUTINE 
;* WIHTOUT USING A ‘'TRAP'* INSTRUCT 1ON AS CALLED FOR BY **SYSMAC*®*. 
177776 MOV aePsw, <-(SP) :; THE PROCESSOR STATUS ON THE STACK 
015664 JSR C, SRDOCT £60 TO THE SUBROUTINE 
000001 BIC WBITO, (SP) SURE ADDRESS IS ON A WORD BOUNDRY. 
174040 CLR SAVTS “INIT TEST MAP...LO 64K. 
174036 CLR SAVTST+2 Hl 
020000 1$: ADD #2 , R2 “UPDATE ADDRESS POINTER TO NEXT BANK. 
016006 CMP R3, SHIOCT ;CHECK HI ADDRESS BITS. 
BLO 2$ -BR IF NOT HI ENOUGH YET. 
BH! 3$ “BR IF PAST SELECTED ADDRESS. 
CMP R2, (SP) -CHECK THE LO ADDRESS BITS. 
BH! 3$ 7BR IF PAST SELECTED ADDRESS. 
2$: ASL RO “UPDATE POINTER...LO 64K. 
ROL R1 eeee 64K. 
BPL 1$ 7BR BACK TO CHECK NEXT BANK 
BR 17% :BR IF OVERFLOW. 
173766 3$: BIT RO, MEMMAP ;CHECK IF BANK EXISTS. 
BNE 4$ IF BANK EXISTS. 
173762 BIT R1 MEMMIAP + 2” 5 CHECK 
BEQ 17$ F ADDRESS IN UN-MAPPED BANK. 
015746 4$: MOV SHIOCT, R4 «SAVE FIRST ADR HI BITS. 
015744 JSR RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
.WORD  LADMES ADDRESS OF MESSAGE TO BE TYPED 
"LAST ADDRESS: 
;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE S$RDOCT ROUT INE 
-* WIHTOUT USING A "TRAP’’ INSTRUCTION AS CALLED FOR BY **SYSMAC** 
177776 MOV aePSw, -(SP)  ;:PUT THE PROCESSOR STATUS ON THE STACK 
015560 JSR PC, -GO TO THE SUBROUTINE 
TST (SP) “CHECK IF ADR O SELECTED (DEFAULT). 
BNE 11$ “BR IF NOT 0 (DEFAULT) 
015720 TST SHIOCT ; CHECK H] BIT _ 
BNE 11$ BR T 0 (DEFAULT). 
173356 MOV STMP2, (SP) SET UP DEFAULT LAST ADR. 
173354 015704 MOV STMP3, SHIOCT 
173754 MOV (SP)+. LSTADR :GET THE DATA. 
015674 CMP RZ SHIOCT :CHECK FOR LAST ADR BELOw FIRST ADR. 
BH] 10$ “BB IF LAST BELOW FIRST. 
BLO 12$ “BR IF LAST ABOVE F 
173740 CMP (SP), LSTADR :CHECK 
BH I 10$ ;BR IF 
017777 12$: BIT #MASK4K, (SP) : CHECK 
BEQ 13$ :BR IF 





SEQ 0044 
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7084 
7085 
7086 


7087 
7088 


7090 
7091 
7092 
7093 


SEES E: 


YYIIIINYY 
SQKRGRELLS 


NOR — — RON Ss SS SOD 


SVRVUERRANVSSLU Va CVS Naaaan=sSror 
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U 


173720 


138: 
14$: 


15$: 


16$: 


17$: 


20$: 
21$: 


22%: 
30$: 


:* THE NEXT TWO INSTRUCTIONS PROVIDE AN 
;* WIHTOUT USING A ‘‘TRAP’’ INSTRUCTION AS CALLED FOR BY **SYSMAC**. 
MOV aFP Sid ;PuT 


31$: 


MANUL 2: 


4 
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JSR 


SER PARAMETER SELECTION SECTION 

















RO. FADMA :SET UP FIRST ADDRESS MAP. 
RO, SAVTST. ;SET FLAG IN TEST MAP...LO 64k. 
R1. SAVTST#2 ;...HI 64K. 
R3 SHIOCT CHECK FOR PAST LAST ADR. 
15$ “BR IF BELOW LAST ADR. 
16$ “BR IF GONE PAST LAST ADR. 
R2 LSTADR :CHECK FOR PAST LAST ADR. 
16$ “BR IF GONE PAST LAST ADR 
#20000, R2 ;UPDATE ADDRESS POINTER. 
R3 :..HI BITS. 
RO ; UPDATE BANK POINTER...LO 64k. 
R1 HI 64K. 
17$ “BR IF OVERFLOW. 
RO MEMMAP CHECK IF THIS BANK EXISTS. 
13$ IF BANK EXISTS. 
R1 MEMMAP+2° >CHECK IF THIS BANK EXISTS. 
13$ :BR IF BANK EXISTS. 
14$ :BR IF BANK DOESN'T EXIST. 
RO, MEMMAP :CHECK IF THIS BANK EXISTS. 
20$ “BR IF IT EXISTS. 
R1, MEMMAP+2 -CHECK IF THIS BANK EXISTS. 
20$ :BR IF IT EXISTS. 
(SP) + “ADJUST THE STACK. 
R5, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE . 
BADADR 
IN UNMAPPE 
MANUAL “LOOP BACK TO THE BEGINNING. 
RO, LADMAP :SET UP MAP FOR LAST ADDRESS. 
R1, LADMAP+ 
MMAVA : CHECK FOR MEMORY MANAGEMENT. 
228 “BR IF NO MEM MGMT. 
#160000, (SP) “ADJUST FSTADR TO VITRUAL BANK 0. 
#40000, (SP) -...70 VIRTUAL BANK 
(SP)+, FSTADR :SAVE FISRT ADDRESS OFF THE STACK. 
RS, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE . 
CONST OF MESSAGE TO BE TYPED 





SS 
:"‘SELECT CONSTANT: 
AN INTERFACE TO THE SRDOCT ROUTINE 





; THE PROCESSOR STATUS ON THE STACK 
:GO TO THE oa 

:SAVE THE CONSTAN 

:CHECK IF MEM MGNT IS AVAILABLE. 
BR IF ‘T 


T LSTADR TO VIRTUAL BANK 0. 








CZQMCGO O=124K MEMORY EXERCISER, 16K VER 
3:0 USER PARAMETER SELECTION SECTION 


s/eN\i/e\: ~s LeNS ONSEN SONS ONSEN SENS ENTS ENS ONSEN SON SONS ON: 
THE PROGRAM POSITION INDEPENDENT CODE, SO THAT IT CAN EXICUTE PROPERLY WHEN THE PROGRAM 
OF MEMORY CAN BE EXERCISED IN EXACTLY THE SAME MANNER AS THE REST OF MEMORY 
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; T OF I 
;* THIS IS DONE SO THAT THE FIRST TWO BANKS 


H 4 
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sANe/ NOS Ne Ne Ne Ne Nes Ne Nes Nes Nes Nes Nes Ness \es\es is \e7i\e 


7135 006114 016706 173502 
7136 006120 005767 173472 
7137 006124 0014 
7138 006126 052 14 173464 
7139 0061 012767 114 172744 
7140 006142 066767 172432 172736 
7141 006150 004767 011372 
7142 006154 005767 172426 

43 006160 001406 ; 
7144 006162 032737 000001 177572 
7145 006170 001002 
7146 006172 004767 006112 
7147 
7148 
7157 

(3) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(3) 

(2) 006176 

(3) 006176 004567 012436 

3) 

(3) 006204 000167 005604 


(4) 006230 004767 012142 
(5) 006234 004767 013410 
(5S) 006240 
(3) 006242 
7163 006242 0627 000002 
7164 006246 030502 
(1) 006250 001363 
(i) 006252 004767 006736 
7165 
7166 
1167 
7168 006256 004467 006612 
7169 006262 004767 007576 
7170 006266 162700 000002 
7171 006272 014201 


START1: MOV ~STACK, SP ;SET STACK POINTER 
TST CASFLG :CHECK CACHE PRESENT FLAG 
BEQ IF NO CACHE 


1$ ; BRANCH 
BIS #14, @CASREG ; TURN OFF CACHE 
: INIT LOOP ADDRESS. 








1$: MOV #START1.S$LPADR 
ADD RELOCF, $LPADR 
JSR PC, MAMF ;SET UP MEMORY PARITY ERROR VECTOR 
TST MMAVA Ds 2M FOR MEMORY MANAGEMENT AVAILABLE. 
BEQ TST1 H IF NO MEM MGMT. 
BIT #BITO, a#SRO : CHECK IF MEM MGMT ENABLED. 
BNE TST IF MEM MGMT ENABLED. 
JSR aT MMINIT SET UP MEM MGMT REGISTERS. 


~SBTT. SECTION 1: MEMORY ADDRESS TESTS 


soccer 1. AMATEUR OF GY eeeees INTO ce 


;*TEST \- WRITE VALUE OF MEMORY (eonak me MEMORY 











:* = DATA WRITTEN INTO MEMORY (SHOULD 
:* = DATA READ FROM MEMORY (WAS) 
:* R2 = VIRTUAL ADDR 
;* a = NOT USED 
3* = NOT USED 
ot RS = BLOCK BOUNDRY BIT MASK. 
SF ARR ERAEARAAARARAAAAAEAAEERAAARAKAAAKAEERKRAAEAEAERARREERAEEREEEE 
TST1: 
JSR RS, SSCOPE :GO TO SCOPE ROUTINE. 
.WORD 1 ;MINIMUM BLOCK SIZE OF 1 WORDS 
- REQUIRED FOR THIS TEST. 
JMP TST32 ; SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 
: AVAILABLE FOR TEST. 
:* UPWARDS WORD ADDRESSING. 
JSR R4, INITMM : INITIALIZE THE MEMORY ADDRESS POINTERS. 
1$ JSR PC, PHY “GET PHYSICAL ADDRESS INTO RO 
2$ MOV RO (R2) ; UE OF ADDRESS INTO ADDRESS 
MOV (R2)+, RI *GET THE DATA FROM MEMORY UNDER TEST. 
CMP RO 1 THE CHECK WORD WITH THE DATA READ. 
BEQ 65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
64$ JSR PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
JSR PC, SERROR :**s ERROR *** (GO TYPE A MESSAGE) 
‘inl .WORD 2 “ERROR TYPE CODE. 


ADD ;ADD #2 TO PHYSICAL ADDRESS 

BIT R5, Re ;CHECK FOR END OF A BLOCK. 

BNE 2$ “BRANCH IF MORE IN CURRENT BLOCK. 
JSR PC, MMUP :;F IND NEXT BLOCK AND LOOP TO 1$. 


:* CHECK THAT VALUE OF MEMORY ADDRESS WAS WRITTEN CORRECTLY 
7% oem as = eae 


J ° ; INITIALIZE THE MEMORY ADDRESS POINTERS. 
3$: JSR ae PHYADR GET AS a ADDRESS INTO RO 
4$: SUB #2, RO :DEC DATA BY 2 

MOV -(R2), RI -GET THE DATA FROM MEMORY 


SEQ 0046 


HAS BEEN RELO 


GO Q=124K MEMORY ay § REGS ER- 16K “9 MACY11 30A(1052) 1b win-20 13:10 PAGE 59-350 





CZQMC 
CZ7QM(G.P11 12-MAR-80 WRITE VALUE OF MEMORY ADDRESS INTO MEMORY SEQ 0047 
7172 74 CMP re R1 ; COMPARE THE CHECK WORD WITH THE DATA READ. 
(2) 76 1405 BEQ 6 7BRANCH OVER ERROR CALL IF GOOD DATA. 
(3) 006 004767 ots 66$: JSR PC, SPRNTO ;SET UP VALUES FOR ERROR PRINTING. 
(4) 0063506 0046767 015340 JSR PC, SERROR ;** ERROR *** (GO TYPE A MESSAGE) 
(4) 006310 -WORD 2 sERROR TYPE CODE. 
(2) 006312 67$: 
7173 006312 030502 BIT RS, R2 ; CHECK FOR END OF A BLOCK, 
(1) 006314 001364 BNE 4$ BRANCH IF MORE IN CURRENT BLOCK 
(1) 006316 004767 007362 JSR PC, MMDOWN :FIND NEXT BLOCK AND LOOP TO $TAG1. 


& 
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CZQMCG.P11 12-MAR-80 13:07 T2 WRITE VALUE OF MEMORY ADDRESS INTO MEMORY SEQ 0048 
7175 RRA AAA AEAAAEAAEAAEAAERAAREAAAEERAEAEEEEEREEEKEREREHEEE 
(3)  STEST 2 WRITE VALUE OF MEMORY ADDRESS INTO MEMORY 
(4) :8 RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 
(4) :* R1 = DATA READ FROM MEMORY (WAS) 
(4) ;* R¢ = VIRTUAL ADDRESS 
(4) :* R35 = NOT USED 
(4) :* R4 = NOT USED 
(4) ;* RS = BLOCK BOUNDRY BIT MASK. 
(3) 2 REAR ERE REAR AEE EERE EERE EREEERE AREER 
(2) 006322 TST2: 
(3) 606322 004567 012312 JSR RS, SSCOPE ;GO TO SCOPE ROUTINE. 
(3) 006326 000000 -WORD 0 =NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
7176 :* UPWARDS BYTE ADDRESSING. 
7177 006330 004467 006102 JSR R4, INITMM ; INITIALIZE THE MEMORY + ty POINTERS. 
7178 006334 004767 007524 1$: JSR PC, PHYADR :GET PHYSICAL ADDRESS INTO RO 
7179 006340 110022 2s: MOVB RO, (R2)+ IT UE OF ADDRESS INTO ADDRESS 
7180 006342 005200 INC RO ;ADD ONE TO PHYSICAL ADDRESS 
7181 006344 030502 BIT RS, R2 ;CHECK FOR END OF A BLOCK. 
(1) 006346 001374 BNE 2$ ;BRANCH IF MORE IN CURRENT BLOCK. 
ra 006350 004767 006640 JSR PC, MMUP ;F IND NEXT BLOCK AND LOOP TO 1$. 
7183 >* CHECK THAT VALUE OF MEMORY ADDRESS WAS WRITTEN CORRECTLY 
7184 :* DOWNWARDS BYTE ADDRESSING. 
7185 006354 004467 006514 JSR R4, INIT Bo an: THE MEMORY ADDRESS POINTERS. 
71 006360 004767 007500 3$: JSR PC, PHYADR :GET PH Sain ADDRESS INTO RO 
7187 006364 005300 4$: DEC RO ;DEC DATA BY 1 
7188 006366 114201 MOVB -(R2), RI GET THE DATA FROM MEMORY 
7189 006370 1 1 CMPB RO R1 ;CHECK THE DATA...LO BYTE ONLY VALID. 
7190 006372 001405 BEQ 65$ BRANCH OVER ERROR CALL IF GOOD DATA. 
(2) 006374 004767 011752 64$: JSR PC, SPRNTO ;SET UP VALUES FOR ERROR PRINTING. 
(3) 006400 004767 013244 JSR SERROR ;*** ERROR *** (GO TYPE A MESSAGE) 
(3) 006404 000005 -WORD 3 “ERROR TYPE CODE. 
(1) 006406 65$: 
7191 06 030502 BIT R5, R2 a. FOR END OF A BLOCK. 
(1) 006410 001365 BNE 4$ H IF MORE IN CURRENT BLOCK. 
m5) 006412 004767 007266 JSR PC, FIND NEXT BLOCK AND LOOP TO $TAGI. 
7193 2 RRA AAERAAAREAAAAARRERERERAARAAAREERAAAAEAAEREREEERRERREREKRET EEE 
(3) s*TEST 3 WRITE 1°S COMPLEMENT VALUE OF ADDRESS INTO ADDRESS. 
(4) :* RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 
(4) ;* R1 = DATA READ FROM MEMORY (WAS) 
(4) ;* a = VIRTUAL ADDRESS 
(4) ;* R5 = NOT USED 
(4) :* R4 = NOT USED 
(4) ;@ RS = BLOCK BOUNDRY BIT MASK. 
(3) 5 ERA A AAR EAA AEE EEE RER ARE REREER RARER AAERARAEAAERERRARERER ER 
(2) 006416 TST3: 
(3) 006416 004567 012216 JSR RS, SSCOPE ;GO TO SCOPE ROUTINE. 
(3) 006422 000000 . WORD NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
7194 ;* DOWNWARDS WORD ADDRESSING. 
7195 a4 >) 004467 006444 JSR R4, INITDN ;INITIALIZE THE MEMORY ADDRESS POINTERS. 
7196 0064 004767 007430 1$: JSR PC, PHYADR GET PHYSICAL ADDRESS INTO RO 
7197 006434 005100 COM RO : COMPLEMENT THE ADR 
7198 006436 062700 000002 2$: ADD #2, RO 3+2 TO DATA=-ADR GOES DOWN SO COM GOES UP 
7199 006442 010042 MOV RO, -(R2) ;PUT DATA INTO MEMORY 
7200 006444 030502 BIT RS, R2 :CHECK FOR END OF A BLOCK. 


CZQMCGO 0-124K MEMORY EXERCISER, 
12-MAR-80 1 


CZQMCG.P11 


7212 
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NP 
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006446 
006450 


13:07 


011676 
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000002 


006472 


012112 


005702 
007400 


006442 
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WRITE 1°S COMPLEMENT VALUE OF ADDRESS INTO ADDRESS. 
BNE 2$ s;BRANCH IF MORE IN CURRENT BLOCK. 
JSR PC, MMDOWN ;FIND NEXT BLOCK AND LOOP TO 1$. 


:* CHECK COMPLEMENT DATA WRITTEN DOWN 
:* UPWARDS WORD ADDRESSING. 








JSR R4, IN] TMM : INITIALIZE THE MEMORY ADDRESS POINTERS. 
3$ JSR PC, PHYADR :GET PHYSICAL ADDRESS INTO RO 
pe COM 0 =COMPLEMENT IT 
MOV (R2)+, R1 :GET THE DATA FROM MEMORY UNDER TEST. 
CMP RO “COMPARE THE CHECK WORD WITH THE DATA READ. 
BEQ 65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
64$: JSR PC, SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 
JSR PC, SERROR * ERROR *** (GO TYPE A MESSAGE) 
iis .WORD 2 “ERROR TYPE CODE. 
SUB #2, RO :COUNT DOWN WITH ADDRESS 
BIT RS, R2 =CHECK FOR END OF A BLOCK. 
BNE 4$ “BRANCH IF MORE IN CURRENT BLOCK. 
JSR PC, MMUP §:FIND NEXT BLOCK AND LOOP TO 3$. 
5 FERRARA AAAAAARAEAEEAAEEKAKEAAERAERKEAEAEEEEREEREAEKEKEEREKKEEKRKEKEE 
“TEST 4 WRITE BANK # INTO ALL ADDRESSES IN A 4K BANK 
:* RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 
:* R1 = DATA READ FROM MEMORY <WAS) 
* R2 = VIRTUAL ADDRESS 
;* R35 = NOT USED 
oe R4 = NOT USED 
:* RS = BLOCK BOUNDRY BIT MA 
: ; e REREEARERARAREEREREREREEERERRAERERERERRREREREREEEREREREEREEREE 
TST4: 
JSR RS, S$SCOPE :GO TO SCOPE ROUTINE. 
. WORD *NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
:* UPWARDS BYTE ADDRESSING. 
JSR R4, INITMM ; INITIALIZE THE MEMORY ADDRESS POINTERS. 
$: JSR PC, BANKNO T THE BANK NUMBER INT 
2$: MOVE =. RO, (R2)+ WRITE BANK # INTO | ALL ADDRESSES 
BIT RS, R2 ; CHECK FOR END OF A BLOCK. 
BNE 2$ H IF MORE IN CURRENT BLOCK. 





JSR PC, MMUP “FIND NEXT BLOCK AND LOOP TO 1$. 


;* CHECK THAT DATA WRITTEN ABOVE CAN BE READ 
;* UPWARDS BYTE ADDRESSING. 
SR R4 INI TMM 












J ; : INITIALIZE THE MEMORY ADDRESS POINTERS. 
3$ JSR PC “GET THE BANK NUMBER INTO RO 
4$ MOVB  (R2)+, R1 “READ THE DATA OUT OF MEMORY 
CMP RO R1 “COMPARE THE CHECK WORD WITH THE DATA READ. 
BEQ é5$ =BRANCH OVER ERROR CALL IF GOOD DATA. 
64$ JSR PC, SPRNT1 :SET UP VALUES FOR 
JSR PC. SERROR :s*s ERROR *** (GO TYPE A MESSAGE) 
sia .WORD 3 “ERROR TYPE CODE. 
BIT RS, R2 :CHECK FOR END OF A BLOCK. 
“BRANCH IF MORE IN CURRENT BLOCK. 





BNE $ 
JSR PC, MMUP ;F IND NEXT BLOCK AND LOOP TO 5$. 


SEQ 0049 
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006 
006712 
0067 


004567 
016700 


012022 
006250 
007310 
007040 


006224 
007264 


011462 
012754 


006776 


011726 
172670 


16K VER 
T5 


MACY11 30A(1052) 12-WAR=80 yp 10 PAGE 59-335 








WRITE 1°S COMPLEMENT OF 
‘<—<s)6)6~ CU Ct aA—M«ocaxe...!!!! 
:*TEST 5 WRITE 1°S COMPLEMENT OF BANK # 
;® RO = DATA eis INTO MEMORY (SHOULD BE) 
;@ R1 = DATA READ FROM MEMORY (WAS) 
;@ R2 = VIRTUAL ADDRESS 
;* = NOT USED 
:* R4 = NOT USED 
;* RS = BLOCK BOUNDRY BIT MASK. 
fF SAAR AAAAARAAAAAAAAAAAAAAAAAAARAAAARAAAAAAAAAAAARARARARAAREARAEE 
TSTS: 


:GO TO SCOPE ROUTINE. 
:NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 


JSR R5, SSCOPE 


WORD 

;* DOWNWARDS BYTE ADDRESSING. 
JSR R4, INI TDN FS THE MEMORY ADDRESS POINTERS. 
BANKNO T THE BANK NUMBER IN . RO 

















1$: JSR PC, 
COM RO “T's COMPLEMENT OF BANK # 

2$: MOVB RO, -(R2)  :PUT 1°S COM OF wt # INTO MEMORY 
BIT RS, R2 Bs 3 FOR END OF A BLOCK. 
BNE 2$ H IF MORE IN CURRENT BLOCK. 
JSR PC, MMDOWN “FIND NEXT BLOCK AND LOOP TO 1$. 


;* CHECK THAT DATA WRITTEN CAN BE READ. 

;* DOWNWARDS BYTE ADDRESSING. 
JSR R4, INITDN ;INITIALIZE THE MEMORY ADDRESS POINTERS. 
BANKNO ;GET THE BANK # INTO RO 














3$: PC, 
RO 
4$: -(R2), RI MEMORY 
RO R1 “COMPARE THE CHECK WORD WITH THE DATA READ. 
65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
64S: PC, SPRNTO SET UP VALUES FOR ERROR PRINTING. 
PC, SERROR * ERROR *** (GO TYPE A MESSAGE) 
oa -WORD 3 “ERROR TYPE CODE. 
BIT RS, R2 ;CHECK FOR END OF A BLOCK. 
BNE 4$ H IF MORE IN CURRENT BLOCK. 
JSR PC, “FIND NEXT BLOCK AND LOOP TO $TAGI. 





-SBTTL SECTION 2: WORST CASE NOISE TESTS 

et rititiiittiitiitiiitiet iii ii iiiiiiiiiiiiiii iii reer ae 

7* THESE TESTS WRITE MEMORY WORST CASE NOISE TEST PATTERNS THROUGHOUT 
;* MEMORY AND CHECK THAT THEY CAN BE WRITTEN AND READ. 


p. 
{ RRKREEREKRERERAEAARAEERERERAEAEERAKRAARAREARAERERARERAREAERAEKAEKKEKKEREKREKE 
peer yy mcrccacrlla 











 STEST 6 WRITE A Mgr INTO MEMORY. 
:* THE CONSTANT IS USER NF (DEFAULT = 0). 
;* RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 
;* R1 = DATA READ FROM MEMORY 
;* R2 = VIRTUAL ADDRESS 
;* = NOT USED 
;* 4 = NOT USED 
;* = BLOCK BOUNDRY BIT MASK. 
SL RRAEEEREREAEEEEAERREREREREERKERREERAEERAEERRERERRERERAE ERE EA ERR ER 
TST6: 
JSR RS, $SCOPE ;GO TO SCOPE ROUTINE. 
. WOR =NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
TST6A: MOV .CONST, RO GET USER CONSTANT 


| 


SEQ 0050 
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005512 


006256 


011676 


000400 
172120 
177740 


000001 
000030 


011564 
172552 
010560 


005340 


011264 
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1$: 


MACY11 30A(1052) 
WRITE A CONSTANT INTO MEMOR 


JSR 
MOV 
BIT 
BNE 
JSR 


PC. 
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INI TMM 


(R2)+ 
R2 


MMUP 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 
WRITE gly INTO MEMORY. 
4 FOR END OF A BLOCK. 

H_IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 





'MARABEBASREALAALAAAALALSERARARAARARALALALALA RARER ALARA RASA AAA RAR A ASS SO 


AND COMPARE TO CONSTANT. 


“RTE 


ST 7 
IMPORTANT : 


READ MEMORY 
THIS TEST SHOULD 


NOT BE RUN WITHOUT FIRST RUNNING TEST SIN. 


'MARAABALRASZALAAALALALARARAAA SLES ERSR SAAR RL ARA LARA RRR RAAAR ARRAS AAS SS 


1817: 


1$: 


BIT 
BNE 


JSR PC, MMUP ;FIND NEXT BLOCK 
SPECIAL CHECK TO SEE IF TEST 6 IS SELECTED be 
LOWS THE OPE H BAC FORTH 








R5, 


. CONST, 
R4, 


(R2)+, 


PC, 
4 
R5, 
1$ 





SSCOPE 


RO 
INI TMM 


R1 
R 


Re 








;GO TO SCOPE ROUTINE. 
NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
T R_CONSTANT 


GET USE 
; INITIALIZE THE MEMORY ADDRESS POINTERS. 
;GET THE DATA FROM MEMORY UNDER TEST. 


[COMPARE THE CHECK WORD WITH THE DATA READ. 


;BRANCH OVER ERROR CALL IF GOOD DATA. 
sSET UP VALUES FOR ERROR PRINTING. 
;*** ERROR *** (GO TYPE A MESSAGE) 
ZERROR TYPE CODE. 


:CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
K AND LOOP TO 1$. 




































THE SWR. 
AL RATOR TO SWITCH BETWEEN TESTS 6 AND 7 
BY SIMPLY ‘‘TOGGLING’’ SWOO 2, AND SWO8 ARE SET. 
BIT sCHECK THAT LOOP ON TEST BIT SET 
TST10- “BRANCH IF NOT LOOP ON TEST 
-(SP)  =:GET SWITCH REGISTER DATA. 
a 540. (SP) : NON-TEST-NUMBER SWITCHS. 
‘ (SP)+  :CHECK IF TEST 6 IN SWITCHES. 
TS *BRANCH IF NOT TEST 6 
#i, $TS gRESET TEST NUMA 
SUB #TST7-TST6,. SLPADR «RE T LOOP ADR 
BR TST6A :60 + TEST 6 
S AREER AEARAAAKERAKERERERERREKAERERRARRARAAKEEREERAAAKERERRAEKRERERE 
ST 10 WORSE CASE NOISE (PARITY) WORD TESTING 


seTE 


TST1 


1$: 


2$: 


64$: 


:* CHECK MEMORY WITH A SERIES OF PATTERNS 


5 LARA AAEEREEERAEEREREEEEEAERREREARERAARERREKERAEEARERAERAEREEEREREE 


0: 


RS, SSCOPE 
_MPPAT, R4 

a CKPMER 
(R4)+, RO 
TST11 
R4, INI TMM 
RO (R2) 
(R2)+, R1 

0 R1 
65$ 
PC, SPRNT2 


:GO TO SCOPE ROUTINE. 

:NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
s INITIALIZE PATTERN TABLE POINTER 

:CHECK FOR NON-TRAP PARITY MEMORY ERRORS. 
:GET THE DATA ae 


OF TABLE 
THE MEMORY PERO POINTERS. 





OMP. HE 
; BRANCH OVER ERROR CALL IF GOOD _ 





SEQ 005" 


CZQMCGO 0-124K MEMORY EXERCISER, 16K VER 
CZQMCG.P11 80 13:0 T10 


12-MAR- 





004767 012532 
000004 


65$: 


MACY11 30A(1052) 


13-Mar-80 


13:10 PAGE 59-35 


WORSE CASE NOISE (PARITY) WORD TESTING 


JSR 


. WORD 


BIT 
BNE 
SR 
BR 


— 


PC, 
4 


SERROR 


Re 


;*** ERROR *** (GO TYPE A MESSAGE) 
;ERROR TYPE CODE. 


: CHECK FOR END OF A BLOCK. 

CH_IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 2$. 
;BR BACK TO DO NEXT PATTERN 


SEQ 0052 





CZQMCGO Q-124K MEMORY EXERCISER, 
CZQMCG.P11 -80 13:0 









SIEVE 


ee 
a 





PIPIIII 


aa8seR200 
Wsdorsas 
eet ee ewe ee we fe 


ant on te ee 
WANNA 
oe eT eS 


gossaceseseees 


a 
—_— —— 
A 








011502 
177777 
007030 
005262 


007036 
177776 


011176 
012444 


005776 





16K VER MACY11 30A(1052) 1S-man-80 13:10 PAGE 59-36 
11 ROTATE A *0** BIT THROUGH A FIELD OF ONES. 


fF RARER AAAAAAAAAAAAAAAAATAERAAAAAAAAAAAAAAAAAARARAAARAAAAEARAARAAESD 





TEST 11 ROTATE A *0'* BIT THROUGH A FIELD OF ONES. 
eR eeAAAAAAAAAAAAAEEEERAAAERAARAERERARERRERERERERERERE RRR EREEEE 
1$111: 





SSCOPE ;GO TO SCOPE ROUTINE. 
:NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 




















RO :SET CHECK 
SETCON ;PUT THE CONTENTS OF RO IN ALL MEMORY. 
INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS. 
1$: = CLEAR CARRY BIT IN PSW 
ROTATE 
R1 7GET RESULT 
;BRANCH IF °C’ BIT WAS SET 
R1 ; COMPARE THE CHECK WORD WITH THE _ READ. 
“BRANCH OVER ERROR CALL IF GOOD DATA 
63$: SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 
SERROR ;*** ERROR *** (GO TYPE A MESSAGE) 
_ “ERROR TYPE CODE. 





R2 Pl FOR END OF A BLOCK. 
H_IF MORE IN CURRENT BLOCK. 
MMUP “FIND NEXT BLOCK AND LOOP TO 1$. 


* RRR RAAAAAEAARAAAEAAAREEEAAAAEKAAAARAAAKEARAEARARAAAEKAAAARAERERERARAEKEE 


*eTEST 12 ROTATE A ‘1’' BIT THROUGH A FIELD OF ZEROS 


*RREAAAAAEAAAAAAAAAAEATETAAAEAAAAEAAAEAAEAAAAAAAAEAAEAAAAAEKAAEEEAKREKEE 


























TST12: 

JSR RS, S$SCOPE :GO TO SCOPE ROUTINE. 

.WORD 0 “NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

CLR RO :SET CHECK WORD 

JSR PC, SETCON =PUT THE CONTENTS OF RO IN ALL MEMORY 

JSR R4. INITMM ; INITIALIZE THE MEMORY ADDRESS POINTERS. 
1$: SEC “SET 'C* BIT IN 

JSR : ROTATE :GO ROTATE ‘1° BIT 

MOV -2(R2), R1 -GET RESULT 

BCC “BRANCH IF 'C* IS CLEAR 

CMP RO R1 *COMPARE THE CHECK WORD WITH THE DATA READ. 

BEQ 64$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
63$: JSR PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 

JSR PC, SERROR :*e* ERROR *** (GO TYPE A MESSAGE) 
bi ? 5 “ERROR TYPE CODE. 

BIT RS, R2 : CHECK FOR END OF A BLOCK. 

BNE 1$ H IF MORE IN CURRENT BLOCK. 

JSR PC, mMuP “FIND NEXT BLOCK AND LOOP TO 1S. 


SEQ 0055 


5 
CZQMCGO 0-124K aan SHER SER. 16K “ MACY11 30A(1052) 15-war-80 13:10 PAGE 59-37 


























CSOMCC. 211 12=MAR 3 xOR 9 TEST PATTERN. SEQ 0054 
7310 5 EAA A AA AAR AA EAARERAERAEEEARERERRERARERERAEREEERREEREHERERER ERED 
(3) *aTEST 13 3 XOR 9 TEST PATTERN. 
(3) fF SAAR AAAAAAAAAAAAAAAAAAEAAAAAAAAAARAAEAAAARARAARAAARARAAAEAARAEEE 
(2) 007300 1$113: 
(3) 007300 004567 011334 JSR R5 SSCOPE : 60 TO SCOPE ROUTINE. 
(3) 007304 000777 “WORD 777 ‘MINIMUM BLOCK SIZE OF 256. WORDS 
(3) REQUIRED FOR THIS T 
(3) 007306 000167 000312 JMP TST14 SKIP TO NEXT TEST wen LESS THAN ONE BLOCK 
(3) : AVAILABLE FOR TEST. 
7311 007312 005000 .3x9: CLR RO “SET UP TEST DATA 
7312 007314 012703 177777 MOV #-1, R3 *SET COM DATA REG 
7313 007320 004467 005112 JSR Rs, INITMM INITIALIZE THE MEMORY ADDRESS POINTERS. 
7314 007324 004767 006736 1$: JSR PC, W3X9 <:WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT 
7315 007330 030502 BIT RS, R2 “CHECK FOR END OF A BLOCK. 
(1) 007332 001374 BNE 1$ “BRANCH IF MORE IN CURRENT BLOCK. 
7 ) 007334 004767 005654 JSR PC, MMUP § :FIND NEXT BLOCK AND LOOP TO 1$. 
7317 FERRER EERE EEE ERE TEER REEEREERAEERREREEEEERRER EH 
7318 ** CHeCK 3 XOR 9 TEST PATTERN WRITTEN ABOVE 
7319 em" eae Wee: > ncn 
7320 007340 005000 RO :SET CHECK WORD 
7321 007342 004467 005070 RG, INI TMM INITIALIZE THE MEMORY ADDRESS POINTERS. 
7322 007346 012704 000100 11$: #64., RG T 256. WORD COUNTER 
7323 007352 12$: 
(1) 007352 012201 (R2)+, R1 :GET THE DATA FROM MEMORY UNDER TEST. 
(2) 54 0 RO R1 =COMPARE THE CHECK WORD WITH THE DATA READ. 
(3) 007356 001405 65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
(4) 007360 004767 011012 64$: PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
007364 012260 PC, SERROR :**s ERROR *«« (GO TYPE A MESSAGE) 
ae 7 “ERROR TYPE CODE. 
(R2)+, R1 :GET THE DATA FROM MEMORY UNDER TEST. 
RO R1 =COMPARE THE CHECK WORD WITH THE DATA READ. 
67$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
010772 66S: PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
012240 PC, SERROR :*%* ERROR *** (GO TYPE A MESSAGE) 
= 7 “ERROR TYPE CODE. 
(R2)+, R1 :GET THE DATA FROM MEMORY UNDER TEST. 
RO R1 : COMPARE THE CHECK WORD WITH THE DATA READ. 
69$ H OVER ERROR CALL IF GOOD DATA. 
010752 68%: PC, SPRNT2 “SET UP VALUES FOR ERROR PRINTING. 
012220 PC, SERROR :*** ERROR *=* (GO TYPE A MESSAGE) 
oe 7 “ERROR TYPE CODE. 
(R2)+, R1 :GET THE DATA FROM MEMORY UNDER TEST. 
RO R1 ; COMPARE THE CHECK WORD WITH THE DATA READ. 
71$ H OVER ERROR CALL IF GOOD DATA. 
010732 70$: PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
012200 PC, SERROR * ERROR *** (GO TYPE A MESSAGE) 
~ 7 “ERROR TYPE CODE. 
COM RO : COMPLEMENT CHECK WORD 
DEC RG “DECREMENT 256. WORD COUNTER 





COM RO ; COMPLEMENT CHECK WORD 





CZQMCGO oles ME MOR Y euee ISER, 
12-MAR~-80 13:0 


CPOMCC. P11 


005522 


= 


54 
22 


oo 
ad and 
S& 


0106350 
012076 


010604 
012052 


005370 


16K VER 
113 


ee 
ee 
& 
° 
ee 


21$: 
22: 
233: 


723: 


738: 


743: 


75$: 


76$: 


773: 


MACY11 30A(1052) 


D 5 
12-MAR-80 


3 KOR 9 TEST PATTERN. 


BIT 
BNE 
JSR 





1$ 


PC, 


R2 
MMUP 


IN] TMM 
RS 
R3 


SPRNT2 
SERROR 


R1 
R1 


SPRNT2 
SERROR 


R2 


; CHECK FOR END OF A 
IF MOR 





BRANCH OVER 
+SET UP VALUES 





13:10 PAGE 59-38 


BLOCK. 
E IN CURRENT BLOCK. 


BRANCH 
;FIND NEXT BLOCK AND LOOP TO 11$. 


KARAAAAAAAAAAAAAAAAAAAAAATAEEAAARARAAAARARAAAAEAARAAARARARAAEARAERAAAKREE 


CHECK, COM, CHECK, COM, CHECK 3 XOR 9 PATTERN WRITTEN ABOVE. 


“RAAT CAAA AKARKAAKRERAREAREAARAAARARAEARAKHRAKRKKAKE 


s INITIALIZE THE MEMORY ADDRESS POINTERS. 
:SET 256. WORD COUNTER 

;SET 4 WORD COUNTER 

;GET THE DATA FROM MEMORY UNDER TEST. 

> COMPARE THE C 


HECK WORD WITH THE DATA READ. 
ERROR CALL IF GOOD DATA. 





FOR rors 
* ERROR *** (GO TYPE A 
“ERROR TYPE CODE. 


; COMPLEMENT CHECK WORD 

: COMPLEMENT TEST DATA 

:GET THE DATA FROM MEMORY UNDER TEST. 

DY tee THE CHECK WORD WITH THE a READ. 
H OVER ERROR CALL IF GOOD DAT 

SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 


PRINTING. 
MESSAGE ) 











ERROR TYPE CODE. 


;COMPLEMENT CHECK WORD 
; COMPLEMENT TEST DATA 


;GET THE DATA FROM MEMORY UNDER TEST. 
oe THE CHECK WORD WITH THE DATA READ. 
H OVER ERROR CALL IF GOOD DATA. 

“SET UP VALUES FOR ERROR PRINTING. 
;#** ERROR *** (GO TYPE A MESSAGE) 





:ERROR TYPE CODE. 


sDECREMENT 4 a COUNTER 
:BR IF NOT 
; COMPLEMENT CHECK WORD 

: DECREMENT 256. “GORD COUNTER 
;BR IF NOT DONE. 

; COMPLEMENT CHECK WORD 
:CHECK FOR END OF A BLOCK. 


;BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 21$. 








SEQ 0055 


CZQMCGO Q-124K MEMORY EXERCISER, 
12-MAR-80 13:0 


e2OMCG. Pil 


011070 


000316 
177777 


004566 
006412 


005330 


177777 
004542 
000100 


010464 
011732 


010444 
011712 


16K VER 
T14 


MACY11 30A(1052) 


15 -war-80 


13:10 PAGE 59-39 


COMPLEMENT 3 XOR 9 TEST PATTERN 


WE RPARRRRRABREBRARALASAALARRARARRARRRELRRARRRARRERRRRE RARER RRR SR RAR RAS SE SD | 


COMPLEMENT 3 XOR 9 TEST PATTERN 


-*TEST 14 


WEAR AARARRRRBAASARARASRARAALARARRARARARARARRRRAERRARARRRARARA RARER SSAA SS 


SSCOPE 


TST14: 


JSR 


JMP 





; MINIMUM BLOCK SI 
‘IP 


“CHECK FOR END OF A 


:GO TO SCOPE ROUTINE. 
ZE OF $6. WORDS 


REG 
THE MEMORY ADDRESS Aw ts 
- WORD w¥ _ 3 KOR 9 P 





BLOC 
;BRANCH IF MORE IN CURRENT BLOCK. 
:FIND NEXT BLOCK AND LOOP TO 1$. 





“RR CREAR AEEERAEARAAEAAAAAAREAAARAAAAAAAKEAARAREARAAEREARARARAEEKRAKKE 


MARAAREARAARALALAAALALALARAAAAAARAR ALARA SAAR ARAREALEAA ALARA AL ALAS AS | 


:* CHECK COMPLEMENTED 3 XOR 9 TEST PATTERN WRITTEN ABOVE. 


11$: 
12$: 
64$: 


65$: 


70$: 


71$: 





#-1, 


RO 
INI TAM 
R4 


R1 
R1 





SET CHECK WORD 
: INITIALIZE THE MEMORY ADDRESS POINTERS. 
;SET 256. WORD COUNTER 


:GET THE DATA FROM MEMORY UNDER TEST. 
; COMPARE 


sBRANCH OVER ERROR CALL 

;SET UP VALUES FOR ERROR PR 
;*** ERROR *** (GO TYPE A MESSAGE) 
SERROR TYPE CODE. 


;GET THE DATA FROM MEMORY UNDER TEST. 
:COMPARE THE CHECK WORD WITH THE DATA READ. 
sBRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 
SERROR TYPE CODE. 


;GET THE DATA FROM MEMORY UNDER TEST. 
S COMPARE THE CK on oe THE DATA READ. 


;BRANCH OVER 

:SET UP VALUES FOR ERROR PRINTING. 
seek ERROR «xx (GO TYPE A MESSAGE) 
:ERROR TYPE CODE. 


:GET THE DATA FROM MEMORY UNDER TEST. 
sCOMPARE THE C 

sBRANCH OVER ERROR CALL 
;SET UP VALUES FOR 
ees ERROR *** (GO TYPE A MESSAGE) 
[ERROR TYPE CODE. 


; COMPLEMENT CHECK WORD 
:DECREMENT 256. WORD COUNTER 


























CZQMCGO =: 0-1 24K Baw EXERCISER, 


CZQMCG.P11 


12 








13:07 
005174 


177777 
004406 
000100 
000004 


010324 
011572 


010300 
011546 


005040 


16K VER 
T14 


MACY11 30A(1052) 
COMPLEMENT 3 XOR 9 TEST PATTERN 


. 
12-MAR-80 13:10 PAGE 59-40 


MMUP 


Bo Ae dl CHE CK — 
: CHECK | FOR END OF A BLOCK 

H IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 11$. 





‘REAR AAAEAAEAAEARAEAEKAEEAAAAARAAARARAAARAAAAAAAAAARARAAAAEREARKAKRE 


- @%s 


74$: 


75$: 


76$: 


77$: 





RO 
INI TM 
R4 
R3 
R1 
R1 
SPRNT2 
SERROR 
R1 
R1 
SPRNT2 
SERROR 





R1 
R1 


SPRNT2 
SERROR 


Re 





CHECK, COM, CHECK, COM, CHECK COMPLEMENTED 3 XOR 9 PATTERN. 


TTT TTT TTT TTT TT TITTTILIL TELE TLTTTTE LE TL ELEETTE 





;SET UP CHECK WORD. 

: INITIALIZE THE MEMORY ADDRESS POINTERS. 
:SET 256. WORD COUNTER 

;SET 4 WORD COUNTER 
:GET THE DATA FROM MEMORY UNDER TEST. 
;COMPARE THE 








;BRANCH OVER ERROR CALL if GOOD DATA. 
;SET UP VALUES FOR ERROR PRIN] ING. 
;#** ERROR *** (GO TYPE A MESSAGE) 
:ERROR TYPE CODE. 


; COMPLEMENT CHECK WORD 
; COMPLEMENT TEST DATA 
GET THE DATA FROM MEMORY UNDER TEST. 














H OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
;*** ERROR *** (GO TYPE A MESSAGE) 
:ERROR TYPE CODE. 


: int CHECK WORD 





H OVER E CALL 
“SET UP VALUES FOR ERROR PRINTING. 
;*** ERROR *** (GO TYPE A MESSAGE) 
ZERROR TYPE CODE. 


; DECREMENT 4 WORD COUNTER 
F NOT 


> COMPLEMENT CHECK WORD 
= DECREMENT . WORD COUNTER 











BLOCK. 
; BRANCH MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 21$. 


CHECK WORD WITH THE DATA READ. 


_ THE CHECK WORD WITH THE DATA READ. 


SEQ =| 


CZQMCGO 0-124K MEMORY EXERCISER, 16K VER MACY11 30A(1052) 1Sman-80 13:10 PAGE 59-41 | 
CZQMCG.P11 12-MAR~80 13:07 T15 MODIFIED 3 XOR 9 PATTERN FOR PARITY MEMORY SEQ 0058 








7401 5 RARER AEA EEA AE EAE AE ERE REE RE EAEREEEEEEARRETERERRERERKEKEKE REED 
(3) >eTEST 15 MODIFIED 3 XOR 9 PATTERN FOR PARITY MEMORY 
(3) SF RAAAAAAAEAAAAERAAAAAAEEAEAARAAAEEAERAARAARRARAKAAARRREREHEREKREHRES 
(2) 010154 TST15: 

(3) 010154 004567 010460 JSR RS SSCOPE :GO TO SCOPE ROUTINE. 

(3) 010160 000777 “WORD 777 ; MINIMUM BLOCK SIZE OF 256. WORDS 

(3) : REQUIRED FOR THIS TEST 

(3) 010162 000167 000610 JMP TST16 ; SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 
(3) - AVAILABLE FOR TEST. 

7402 010166 012700 000401 MOV #401, RO “SET UP PARITY ‘‘ALL ZEROS'’ PATTERN 

7403 010172 012703 177777 MOV #-1, R3 -SET COM DATA REG 

7404 010176 004467 004234 JSR ae, INITMM <:INITIALIZE THE MEMORY ADDRESS POINTERS. 

7405 010202 004767 006060 1$: JSR PC. W3X9 <:WRITE 256. WORD BLOCK WITH 3 XOR OP 

7406 010206 030502 BIT RS. R2 “CHECK FOR END OF A BLOCK. 

(1) 010210 001374 BNE 1$ “BRANCH IF MORE IN CURRENT BLOCK. 

By ) 010212 004767 004776 JSR PC, MMUP § :FIND NEXT BLOCK AND LOOP TO 1$. 

7408 SRR ERR REE EREEREEEEEERA EEE ERE EREERRERRERERERRE ERE 

7409 -* CrtCK PARITY 3 XOR 9 PATTERN WRITTEN ABOVE. 

7410 5 ERR ERE REE ERE ERE EAR AEE RE EEEREEEEREEEEEEREREREEEREREER EE 

7411 010216 012700 000401 MOV #401, RO sRESET PARITY ‘‘ALL ZEROS’’ PATTERN. 

7412 010222 012703 177777 MOV #-1, R3 “RESET PARITY ALL ONES PATTERN. 

7413 010226 004467 004204 JSR R4, INITMM INITIALIZE THE MEMORY ADDRESS POINTERS. 

7414 010232 012704 000100 11$: MOV #64., RG -SET 256. WORD COUNTER 

7415 010236 12$: 

(1) 010236 012201 MOV (R2)+, RI :GET THE DATA FROM MEMORY UNDER TEST. 

(2) 010240 020001 CMP RO R1 >COMPARE THE CHECK WORD WITH THE DATA READ. 
(3) 010242 001405 BEQ 65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 

(4) 010244 004767 010126 66%: JSR PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 

(5) 010250 004767 011374 JSR PC, SERROR :**s ERROR *** (GO TYPE A MESSAGE) 

(5) 010254 000007 .WORD 7 “ERROR TYPE CODE. 

(3) 010256 65S: 

7416 010256 012201 (R2)+, R1 :GET THE DATA FROM MEMORY UNDER TEST. 
(2) 010260 0 RO R1 : COMPARE THE CHECK WORD WITH THE DATA READ. 
(3) 010262 001405 67$ H OVER ERROR CALL IF GOOD DATA. 
(4) 010264 004767 010106 66$ PC, SPRNT2 “SET UP VALUES FOR ERROR PRINTING. 

(S) 010270 004767 011354 PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
(5) 010274 7 “ERROR TYPE CODE. 
(3) 010276 67$ 

7417 010276 012201 (R2)+, R1 :GET THE DATA FROM MEMORY UNDER TEST. 
(2) 300 RO R1 =COMPARE THE CHECK WORD WITH THE DATA READ. 
(3) 010302 001405 69$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
(4) 304 0 68S: PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 


PL. SERROR ;*** ERROR *** (GO TYPE A MESSAGE) 
7 ZERROR TYPE CODE. 





7418 010316 012201 (R2)+, R1 :GET THE DATA FROM MEMORY UNDER TEST. 
(2) 010320 RO R1 “COMPARE THE CHECK WORD WITH THE DATA READ. 
(3) 010322 001405 71$ “BRANCH OVER ERROR CALL IF GOOD DATA. 

(4) 010324 004767 010046 70$ PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
(5) 010330 004767 011314 PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
(S) 010334 7 7 “ERROR TYPE CODE. 

(3) 010336 71$: 

7419 010336 01 RO, ~(SP)  :=SAVE RO 
(1) 010340 R3, RO -PUT R3 INTO RO 
(1) 010342 012603 (SP)+, R3 =PUT SAVED RO INTO R3 


CZQMCGO  0-124K MEMORY EREACISER. 
80 13:07 


CPOMCC. P11 


12-MAR- 


012201 
20001 
001405 
67 


004626 


007756 
011224 


007732 
011200 


007706 
011154 


007666 
011134 


ee en ee ee 


H 5 
12-MAR-80 


16K VER MACY11 30A(1052) 13:10 PAGE 59-42 

115 MODIFIED 3 XOR 9 PATTERN FOR PARITY MEMORY SEQ 0059 
DEC R4 :COUNT 256. WORDS | 
BNE 12$ *BRANCH IF MORE 
MOV a. -(SP) : SAVE RO | 
MOV R3, RO ;PUT R3_ INTO RO | 
MOV (SP)+, R3 -PUT SAVED RO INTO R3 | 
BIT é R2 :CHECK FOR END OF A BLOCK 
BNE 11$ “BRANCH IF MORE IN CURRENT BLOCK. | 
JSR PC, MMUP §- s FIND NEXT BLOCK AND LOOP TO 11$. 


MARRRRRARASAASSALZASLALASLARESLARAR SE RRRRRARARERAARARAS ARAL RRA ARRAS ASSES | 


“CHECK. COM, CHECK, COM, CHECK PARITY 3 XOR 9 PATTERN. 


7s TRE RRRSRRALELSLEBSARSRARAARRARARARE RARER ARR RRR RRA ARR AA LASSE SS | 








MOV #401, RO :SET UP PARITY “‘ALL ZEROS" PATTERN. 
MOV #-1, R3 -SET UP ALL ONES PATTERN. 
JSR R4, INI TMM : INITIALIZE THE MEMORY ADDRESS POINTERS. 
218: MOV #64. .R T 256. WORD COUNTER 
MOV (R2)+, RI :GET THE DATA FROM MEMORY UNDER TEST. 
CMP RO R1 “COMPARE THE CHECK WORD WITH THE DATA READ. 
BEQ 73$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
72$: JSR PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
JSR PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
sins “WORD 7 “ERROR TYPE CODE. 
COM RO : COMPLEMENT CHECK WORD 
COM ~(R2) “COMPLEMENT TEST DATA 
MOV (R2)+, RT =GET THE DATA FROM MEMORY UNDER TEST. 
CMP RO R1 “COMPARE THE CHECK WORD WITH THE DATA READ. 
BEQ 75$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
74$: JSR PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
JSR PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
la “WORD 7 “ERROR TYPE CODE. 
COM 0 : COMPLEMENT CHECK WORD 
COM ~(R2) “RESTORE DATA 
MOV (R2)+, RI “GET THE DATA FROM MEMORY UNDER TEST. 
CMP RO READ. 
BEQ 77$ 
76$: JSR PC, 
JSR PC, 
- .WORD 7 “ERROR TYPE CODE. 
MOV (R2)+, RI :GET THE DATA FROM MEMORY UNDER TEST. 
CMP RO R1 *COMPARE THE CHECK WORD WITH THE DATA READ. 
BEQ 79$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
78$: JSR PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
JSR PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
- .WORD 7 “ERROR TYPE CODE. 
COM RO ; COMPLEMENT CHECK WORD 
COM ~(R2) 
MOV (R2)+, RI 
CMP RO R1 
BEQ 81$ 
89$: JSR PC, SPRNT2 
JSR PC, SERROR 





CZQMCGO Q-124K MEMORY + eat 
12-MAR~80 13:07 


POMC. P11 


000007 





007552 
011020 


007526 
010774 


007506 
010754 


007462 
0107350 


16K VER 
715 


81$: 


82$: 


83$: 


84$: 


85$: 


86$: 


87$: 


923: 


93$: 


5 
MACY11 30A(1052) 13-4aR-80 13:10 PAGE 59-43 
MODIFIED 3 XOR 9 PATTERN FOR PARITY MEMORY 


. WORD 


WORD 


7 


R1 
R1 
SPRNT 2 
SERROR 
R1 
R1 
SPRNT2 
SERROR 
R1 
R1 
SPRNT2 
SERROR 
R1 
R1 
SPRNT2 
SERROR 
R1 
R1 
SPRNT2 
SERROR 
R1 
R1 
SPRNT2 
SERROR 
R1 
R1 





SERROR TYPE CODE. 





sERROR TYPE CODE. 
; COMPLEMENT oe WORD 


sRESTORE DAT 
:GET THE DATA FROM MEMORY UNDER TEST 
ARE THE CHECK WORD WITH THE DATA READ. 
;BRANCH OVER we CALL IF GOOD DAT 
sSET UP VALUES FOR ERROR PRINTING. 

* ERROR *** (GO TYPE A MESSAGE) 
“ERROR TYPE CODE. 








;GET THE DATA FROM MEMORY UNDER TEST. 
;COMPARE THE CHECK or WITH THE DATA READ. 


IF GOOD DATA. 
PRINTING. 


NTI 
PE A MESSAGE) 


: COMPLEMENT CHECK WORD 


UNDER TEST. 
Do nteny THE CHECK WORD WITH THE DATA READ. 
H OVER ERROR CALL IF GOOD DAT 
:SET UP VALUES FOR ERROR PRINTING. 
* ERROR *** (GO TYPE A MESSAGE) 
* ERROR TYPE CODE. 


> COMPLEMENT CHECK WORD 
SRESTORE DATA 
:GET THE DATA FROM MEMORY UNDER 





TEST 
: COMPARE THE CHECK WORD WITH THE DATA READ. 
> BRANCH 





OVCR ERROR CALL IF GOOD DAT 
¢SET UP VALUES FOR ERROR PRINTING. 
* ERROR *** (GO TYPE A MESSAGE) 





“ERROR TYPE CODE. 
:COM THE DATA FROM MEMORY UNDER TEST. 






E 
:SET UP VALUES FOR 
* ERROR *** (GO TYPE A MESSAGE) 
“ERROR TYPE CODE. 


; COMPLEMENT CHECK WORD 
; COMPLEMENT TEST DATA 


;GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 
H OVER ERROR CALL IF GOOD DATA. 

SET uP VALUES FOR ERROR PRINTING. 

;s** ERROR *** (GO TYPE A MESSAGE) 

SERROR TYPE CODE. 


BS a oa WORD 

:RESTORE DAT 

:GET THE DATA FROM MEMORY UNDER TEST. 

: COMPARE THE CHECK WORD WITH THE DATA READ. 


SEQ 0060 


= 


CZQMCGO Q-124K MEMORY EXERCISER, 
12-MAR~80 13:07 


CZQMCG.P11 


OO a 


010770 
010772 


010776 


SERSSLAES 


elelelelelejlelelelelelelejleilelelejole) 
ee ah a es es = os sd ss I) = st 
ee ee ss = = ss 9 3) ss 
Se 
On 


SuKRVSS 


001405 
004767 
004767 
000007 





007436 
010704 


004216 


007636 


000610 
177777 
000401 


177777 
000401 
003362 
000100 


007304 
010552 


007264 
010532 


16K VER 
T15 


5 
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MODIFIED 3 XOR 9 PATTERN FOR PARITY MEMORY 

BEQ 95$ sBRANCH OVER one CALL * —_ DATA, 
94$: JSR PC, SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 

JSR PC, SERROR ;*** ERROR *** (GO TYPE A MESSAGE) 
ose .WORD 7 “ERROR TYPE CODE. 

MOV RO, - (SP) ;SAVE RO 

MOV R3, RO i R3 INTO RO 

MOV (SP)+, R3 ;PUT SAVED RO INTO R3 

DEC RS ; DECREMENT T 356. NWORD COUNTER 

BNE 22$ “BRANCH IF MORE. 

MOV RO, -(SP) ;SAVE RO 

MOV R3, :PUT R3 INTO 

MOV (SP)+, R3 sPUT SAVED RO INTO R3 

BIT RS, R2 : CHECK FOR END OF A BLOCK. 

21$ ;BRANCH IF MORE IN CURRENT EST 


;FIND NEXT BLOCK AND LOOP TO 21$ 


Wee PE RARRRRASAALALASRASLARARARARASALAAS ALAR AR AAA AR AR ARARARAR ALAS SSS | 


[*TESi 16 COMPLEMENT PARITY 3 XOR 9 TEST PATTERN. 


5 FARRAR AARRAAAEAAEEAEAAEAEAAARARRERAAERRERAAEAERAKEREKEREKEEKEKKE 


BNE 
JSR PC, MMUP 












TST16: 

JSR R5 SSCOPE ;:GO TO SCOPE ROUTINE. 

“WORD 777 ;MINIMUM BLOCK SIZE OF 256. WORDS 

; : REQUIRED FOR THIS T 
JMP TST17 ; SKIP TO NEXT TEST wen LESS THAN ONE BLOCK 
AVAILABLE FOR TEST. 

MOV #~) RO “SET UP ALL ONES PATTERN 

MOV #401, R3 *SET UP PARITY ‘ALL ZEROS’’ PATTERN 

JSR R4, : INITIALIZE THE MEMORY ADDRESS POINTERS. 
1$: JSR PC, W3X9 :WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT 

BIT RS, R2 =CHECK FOR END OF A BLOCK. 

BNE 1$ F MORE IN CURRENT BLOCK. 





“BRANCH I 
JSR PC, MAUP ;FIND NEXT BLOCK AND ‘ 00P TO 1$. 


*RERRAEERAARAEAEEAAARARAEERAEREACAAAARAAARAERAAEKARAARERAEKAAEAAKARKEKEKEKKKKE 


:* CHECK COMPLEMENT PARITY 3 XOR 9 PATTERN WRITTEN ABOVE. 


—— - “ twmnanna——— 









RO :SET UP ALL ONES, P TTERN | 
ac01. R :SET UP P Pat ZEROS'' PATTERN 
R4, IN] TMM HINITIALIZE” THE MEMORY ADDRESS POINTERS. 
118: #64., RG T 256. WORD COUNTER 
(R2)+, RI :GET THE DATA FROM MEMORY UNDER TEST. 
RO =COMPARE THE CHECK WORD WITH THE DATA READ. 
65$ “BRANCH OVER CALL | ATA. 
64$: JSR PC, SPRNT2 :SET UP VALUES F PR 
JSR PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
ale ‘ 7 “ERROR TYPE CODE. 
MOV (R2)+, R1 :GET THE DATA FROM MEMORY UNDER TEST. 
CMP RO R1 ; COMPARE THE CHECK WORD WITH THE DATA READ. 
BEQ 67$ : H OVE CALL I 
66$: JSR PC, SPRNT2 :SET UP VALUES FOR 3 
JSR PC, SERROR .*** ERROR *** (GO TYPE A MESSAGE) 
an ,WORD 7 “ERROR TYPE CODE. 


CZQMCGO 0-124K MEMORY To 


CZOMCG. P11 12-MAR~-80 1 
7482 011120 012201 
(2) 011122 020001 
(3) 011124 001405 
(4) Q111 $8 004767 007244 
(S) Q171 004767 010512 
(S) 011136 000007 
(3) 011140 
7483 011140 012201 
(2) 011142 020001 
(3) 011144 001405 
(4) 011146 004767 007224 
(S) 011152 004767 010472 
(5S) 011156 
(3) 011160 
7484 011160 010046 
(1) 011162 010300 
(1) 011164 012605 
7485 011166 005304 
7486 011170 001353 
7487 011172 010046 
(1) 011174 010300 
(1) 011176 012605 
7488 011200 030502 
(1) 017202 001324 
(1) 011204 004767 004004 
7489 
7490 
7491 
7492 
7493 011210 012700 177777 
7494 011214 012703 000401 
7495 011220 467 005212 
7496 011224 012704 000100 
7497 011230 
(1) 011230 012201 
(2) 011232 020001 
(3) 011234 001405 
(4) 011236 004767 007134 
(5) 011242 004767 010402 
(5) 011246 
(3) 011250 
7498 011250 
7499 011252 
Oty 
(2) Q11 
(3) ny 
(4) Q11 7110 
(5) Q11 010356 
(S) 011272 
(3) 011274 
rae Bi 
75035 01 1$00 
(2) O11 
(3) 011304 
(4) 011306 007064 





16K VER 
T16 


68$: 


69$ : 


70$: 


71$: 


MACY11 30A(1052) 


K 5 
2-MAR-80 


13:10 PAGE 59-45 


1 
COMPLEMENT PARITY 3 XOR 9 TEST PATTERN. 


BNE 
JSR 


(R2)+, 


R1 
R1 


SPRNT2 
SERROR 
R1 
R1 
SPRNT2 
SERROR 


- (SP) 
R 


:GET THE DATA FROM MEMORY UNDER TEST. 
“COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

sERROR TYPE CODE. 


;GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 
“BRANCH OVER ERROR CALL IF GOOD DAT 

SET UP VALUES FOR ERROR PRINTING. 


:x%* ERROR *** (GO TYPE A MESSAGE) 
;ERROR TYPE CODE. 


BLOCK 
F MORE IN CURRENT BLOCK. 
“FIND NEXT BLOCK AND LOOP TO 11$. 


“REERRARAAKKEAEAARERKEEAAEEEEEAKEKAEKEERAAEKKEKEEEKEKEAAAKEAAREKAKKEEKKKKE 


- 
"* 
- 


21$: 
223: 


73$: 


74$: 


75$: 


76$: 





RO 
R3 
INI TMM 


R1 
R1 
SPRNT2 
SERROR 


R1 
R1 


SPRNT2 
SERROR 


R1 
R1 


SPRNT2 


CHECK, COM, CHECK, COM, CHECK COMPLEMENTED PARITY 3 XOR 9 PATTERN. 


_— - iv. wm Dana 





;SET UP ALL ONES PATTERN | 

CSET UP PARITY “ALL. ZEROS’ PATTERN 

‘INITIALIZE THE MEMORY ADDRESS POINTERS. 
T 256. WORD COUNTER 


:GET THE DATA FROM MEMORY UNDER TEST. 
‘oo THE CHECK WORD WITH THE DATA READ. 
H OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 
;*** ERROR *** (GO TYPE A MESSAGE) 











:ERROR TYPE CODE. 
; COMPLEMENT CHECK WORD 


; COMPLEMENT TEST DATA 

[GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 
H OVER ERROR CALL IF GOOD DATA. 

SET uP VALUES FOR ERROR PRINTING. 

;#e* ERROR *** (GO TYPE A MESSAGE) 

SERROR TYPE CODE. 


; COMPLEMENT CHECK WORD 

SRESTORE DATA 

:GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 
H OVER ERROR CALL IF GOOD DAT 

SET uP VALUES FOR ERROR PRINTING. 















SEQ 0062 


CZQMCGO 0-124K MEMORY i 


CZOMCC. P11 12-MAR-80 1 
(5) BEE 004767 
(S) 011316 000007 
(3) 011320 

7506 «(O11 012201 
(2) 011322 1 
(3) 0113246 001405 
(4) 011326 004767 
(5) 0113 004767 
(5S) 011336 
(3) aE 9's 
7505 011340 005100 
7506 011342 005142 
7507 011344 012201 
(2) 011346 020001 
(3) 011350 001405 
(4) 011352 004767 
(5S) 011356 004767 
(5) 011362 
(3) 011364 
7508 011364 005100 
7509 011366 005142 
7510 011370 012201 
(2) 011372 0 1 
(3) 011374 001405 
(4) 011376 004767 
(5) 011402 004767 
(5) 011406 
(3) 011410 
7511 011410 012201 
(2) 011412 O 1 
(3) 011414 001405 
(4) 011416 004767 
(5) 011422 004767 
(5) 011426 
(3) 011430 
rai¢ 011430 51 
7513 011432 005142 
7514 011434 012201 
(2) 011436 1 
(3) 011440 001405 
(4) 011442 004767 
(5) 011446 004767 
(5) 011452 
(3) 011454 
7515 011454 
7516 011456 
7517 011460 
(2) 011462 
> 011466 
(5) O11495 
(5) 011476 
(3) 011500 
7518 011500 
( 011502 

011504 





010332 


007044 
010312 


007020 
010266 


006774 
010242 


006754 
010222 


006730 
010176 


16K VER 
T16 


773%: 


78$: 


79$: 


80$: 


81$: 


87$: 


88$: 


89$: 


MACY11 30A(1052) 
COMPLEMENT PARITY 3 XOR 9 TEST PATTERN. 


;*** ERROR *** (GO TYPE A MESSAGE) 
sERROR TYPE CODE. 





5 
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SERROR 
Rj 
R1 


SPRNT2 
SERROR 


R1 
R1 


SPRNT2 
SERROR 


R1 
R1 


SPRNT2 
SERROR 
R1 
R1 


SPRNT2 
SERROR 


R1 
R1 


SPRNT2 
SERROR 





SEQ 0065 


;GET THE DATA FROM MEMORY UNDER TEST. 

; COMPARE THE CHECK WORD WITH THE DATA READ. 
H OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

;#e* ERROR *** (GO TYPE A MESSAGE) 





SERROR TYPE CODE. 


; COMPLEMENT CHECK WORD 





* ERROR *** (GO TYPE A MESSAGE) 
“ ERROR TYPE CODE. 


; COMPLEMENT CHECK WORD 





SRESTORE DATA 

+GET THE DATA FROM MEMORY UNDER TEST. 

Pete THE CHECK WORD WITH THE DATA READ. 
H OVER ERROR CALL IF GOOD DATA. 

“SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 





sERROR TYPE CODE. 


+ GET THE DATA FROM MEMORY UNDER TEST. 
sCOMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 

SERROR TYPE CODE. 


; COMPLEMENT CHECK WORD 


ER TEST. 
; COMPARE THE CHECK WORD WITH THE A READ. 
H OVER ERROR CALL IF GOOD DAT 
“SET uP VALUES FOR ERROR PRINTING. 
3*** ERROR *** (GO TYPE A MESSAGE) 
:ERROR TYPE CODE. 


; COMPLEMENT _—* WORD 
SRESTORE DATA 
:GET THE DATA FROM MEMORY UNDER TEST. 
;COMPARE THE CHECK WORD WITH THE DATA READ. 
H OVER ERROR CALL IF GOOD DATA. 
:SET uP VALUES FOR ERROR PRINTING. 
* ERROR *** (GO TYPE A MESSAGE) 
“ERROR TYPE CODE. 


;GET THE DATA FROM MEMORY UNDER (EST. 
:COMPARE THE CHECK WORD WITH THE DATA READ. 
:BRANCH OVER ERROR CALL IF GOOD DAT 





m 5 
CZQMCGO 0-124K MEMORY EXER ISER. 16K VER MACY11 30A(1052) 12-MAR-80 13:10 PAGE 59-47 | 





























CZQMCG.P11 12=MAR-80 13:0 116 COMPLEMENT PARITY 3 XOR 9 TEST PATTERN. SEQ 0064 
(4) 011506 004767 006664 90$: JSR PC, SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 
(5) 011512 004767 0101 JSR PC, SERROR * ERROR *** (GO TYPE A MESSAGE) 
(3) 011316 000007 oni “WORD 7 “ERROR TYPE CODE. 

7519 011520 005100 COM : COMPLEMENT CHECK WORD 

7520 011522 005142 COM ~(R2) : COMPLEMENT TEST DATA 

7521 011524 012201 MOV (R2)+, RI -GET THE DATA FROM MEMORY UNDER TEST. 
(2) 0115 1 CMP RO R1 =COMPARE THE CHECK WORD WITH THE DATA READ. 
(3) 011530 001405 BEQ 93$ “BRANCH OVER ERROR CALL IF GOOD DAT 
(4) 011532 004767 006640 92$: JSR PC, SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 
(5) 011536 004767 010106 JSR PC, SERROR * ERROR *** (GO TYPE A MESSAGE) 
(5) 011542 r4 .WORD 7 “ERROR TYPE CODE. 

(3) 011544 93$: 

7522 011544 RO : COMPLEMENT CHECK WORD 

7523 011546 -(R2) “RESTORE DATA 

7524 011550 (R2)+, R1 =GET THE DATA FROM MEMORY UNDER TEST. 
(2) 011552 RO R1 “COMPARE THE CHECK WORD WITH THE DATA READ. 
(3) 011554 95$ “BRANCH OVER ERROR CALL IF GOOD DAT 
(4) 011556 94$: PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
(S) 011562 PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
(5) 011566 7 “ERROR TYPE CODE. 

(3) 011570 95$: 

7525 011570 010046 RO, -(SP)  ;SAVE RO 

(1) 011572 010300 R3, RO sPUT R3 INTO RO 

(1) 011574 012603 (SP)+, R3 *PUT SAVED RO INTO R3 

$26 011576 005304 R4 = DECREMENT 356. NWORD COUNTER 

7527 011600 001213 228 =BRANCH IF MORE. 

7528 011602 010046 RO, -(SP)  ;SAVE RO 

(1) 011604 010300 R3, RO Pur R3 INTO RO 

(1) 011606 012603 (SP)+, R3 PUT SAVED RO IN 10, R3 

7529 011610 030502 R5 R2 “CHECK FOR END OF A BLOCK. 

(1) 011612 001204 21$ “BRANCH IF MORE IN CURRENT BLOCK. 
(1) 011614 004767 003374 PC, MMUP §_ : FIND NEXT BLOCK AND LOOP TO 21$. 





™ 


CZQMCGO O0-124K MEMORY EXERCISER, 
12-MAR-80 


CZQMCG.P11 

7538 

(3) 

(4) 

(4) 

(4) 

(4) 

(4) 

(3) 

(2) 011620 

(3) 011620 

(3) 011624 
7539 011626 
7540 011632 
7541 011634 
7542 011642 
7545 011644 
7544 011650 
7545 011652 
7546 011656 
7547 
7548 011662 
7549 011670 
7550 011672 
7551 011700 
7552 011702 
75535 011704 
7554 011706 
7555 011712 
7556 011716 
7557 011722 
7558 011726 
7559 011730 
7560 011734 
7561 011740 
7562 011742 

(2) 011744 

(3) 011750 

(3) 011754 

(1) 011756 
7563 011756 
7564 011762 
7565 011766 
7566 011770 
7567 011774 
7568 012002 
7569 012006 
7570 012010 
7571 
7572 O12012 
75735 =012014 
7574 012020 
7575 012024 
7576 012026 
7577 012030 
7578 
7579 012036 


001374 
016737 
105412 


13:07 


007014 
170444 
000100 
000622 


004322 
002554 


167656 
167650 


006352 
007674 


167576 
000252 


167634 
167612 
000001 


167610 
167566 


167276 


167650 
167642 


167576 000114 


11$: BIC wiwP 


-* 


16K VER 
T17 





MACY11 30A(1052) 
WORSE CASE NOISE PARITY BYTE TESTING 


FF EAAAAARAAAAAAAAAAEAAAAAAAAAAARARAAERAARAARARARHEKARAEAAERARAAKREED 


CASE NOISE PARITY BYTE TESTING 


N 5 
12-MAR-80 13:10 PAGE 59-48 


MEMORY 
"tua arent c THAT A TRAP OCCURS 





WRI RAP OCCURS WHEN IT IS READ 
4) MAKE SURE THE ERROR ADDRESS BITS (CSR BITS <11-5>) ARE CORRECT 
RRC AAAKAKAAAAKAAEARAAAEKAAAAAAAAAARAKAAKREARAARARAAAAKREAKRAAAKRAKEAER 
RS, $SCOPE :GO TO SCOPE ROUTINE. 
0 “NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
MPRX “CHECK FOR ANY PARITY MEMORY. 
1$ “BR IF NO PARITY MEMORY. 
#SWO6, @SWR § :CHECK FORINHIBIT PARITY SwITCH. 
2$ “BR IF NOT SET. 
TST20 “SKIP THIS TEST IF NO PARITY MEMORY PRESENT. 
RO *ZERO TO BE PUT IN ALL MEMORY. 
PC, SETCON :ROUTINE TO LOAD ALL MEMORY. 
R4. INITMM :INITIALIZE THE MEMORY ADDRESS POINTERS. 
BITPT, PMEMAP ;CHECK IF CURRENT BANK HAS PARITY MEMORY. 
2$ IF PARITY MEM. 
BITPT+2.PMEMAP+2’ - seeeH] 64K. 
2$ :BR iF T ARITY MEM. 
R5, R2 =POINT TO END OF BLOCK. 
R2 “FIRST ADR OF NEXT BLOCK. 
WWPBS “BR TO FIND NEXT BLOCK. 
PC, SETAE SET ACTION ENABLE (EVEN IF BANKO.) 
PC, CKPMER FOR ANY NON TRAP PARITY ERRORS. 
R2, #114 :CKECK IF POINTING TO PARITY ERROR VECTOR. 
Bi; “BR IF NOT AT VECTOR. 
#4, R2 *SKIP PARITY VECTOR. 
=CHECK FOR BLOCK END. 
(R2), RI *CHECK IF BYTE STILL CLEARED. 
65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
PC, SPRNT :SET UP VALUES FOR ERROR PRINTING. 
PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
11 “ERROR TYPE CODE. 
OEFLG ;CLEAR ODD/EVEN FLAG. 
#252, RO T UP DATA...EVEN, SETS PARITY BIT. 
RO, (R2) “MOV DATA INTO TEST LOCATION. 
PRX, “GET PARITY REGISTER TABLE POINTER. 
WwP ,a(R3) “SET WRITE WRONG PARITY. 
MAE ,a(R3)+ 
(R3) =CHECK FOR TABLE TERMINATOR. 


MORE REGS IN TABLE. 


BNE 10$ BR IF 
SET ao PARITY IN LOCATION UNDER TEST. 


RO, (R2) sWRITE SAME DATA (EXCEPT ~ Vl VIA DATOS. 
T PARITY REG eg Be NTER 


MOV -MPRX, R3 :GE 
@(R3)+ ;CLEAR WRITE WRONG P 


TST (R3) “CHECK FOR TABLE TERMINATOR. 
BNE 11$ “BR IF MORE PARITY REGISTERS. 
@#PARVEC’ ;SET UP VECTOR FOR EXPECTED TRAP 


MOV -PBTRP, 
DETECT WRONG PARITY VIA DATIP: DATOB SHOULDN'T 
NE GB (R2) 


U 
:DATIP (DATOB AND COM PARITY BIT.) 


SEQ 0065 





6 
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C2OMCG. P11 12-MAR-80 13:0 T17 WORSE CASE NOISE PARITY BYTE TESTING SEQ 0066 


-* SHOULD HAVE TRAPPED TO P@TRP 
MOV .PESRV, SFPARVEC “RESET VECTOR FOR UNEXPECTED TRAPS. 
64$: JSR PC, SPRNTO ;:SET UP VALUES FOR ERROR APRINTING, 
JSR PC, SERROR :%** ERROR *** (GO TYPE A MESSAGE) 
.WORD 12 “ERROR TYPE CODE. 
BR WWPB4 “SKIP TRAP SERVICE. 


int ty PARITY MEMORY TRAPS COME HERE. 
MOV -PESRV, ooowvee sRESET PARITY VECTOR FOR UNEXPECTED TRAPS. 




































(SP)+, (SP)+  :RESET THE STACK POINTER AFTER TRAP. 
72 .MPRO, R3 -GET PARITY REG AND MAP TABLE POINTER. 
76 21$: WRITO, (R3) :CHECK IF THIS REGISTER EXISTS. 
22$ -BR IF IT DOESN'T EXIST. 
104 000000 MOV a(R3), R1 -GET THE CONTENTS. 
110 BM I 23$ “BR IF ERROR FLAG SET. 
112 000010 -2$: ADD #10. R3 “MOVE POINTER TO NEXT REG. 
7594 012116 167506 CMP R3 .MPRX: OR END OF TABLE. 
7595 012122 BLO 21$ F £ 
7596 012124 006222 64$: JSR PC, SPRNTO “SET UP VALUES FOR ERROR PRINTING. 
(2) 121 007514 JSR PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
(2) 0121 “WORD 13 “ERROR TYPE CODE. 
7597 012136 BR WwPB4 “EXIT AFTER ERROR. 
7598 012140 167400 000002 23$: # BIT BITPT, 2(R3)  :CHECK THE MAP FOR THIS REGISTER. 
7599 012146 BNE 24 *BR IF THIS REGISTER CONTROLS THIS BANK. 
7600 012150 167372 0C0004 BIT BITPT+2,.4(R3) :CHECK THE HI 64K. 
7601 012156 BNE 24$ “BR IF THIS REGISTER CONTROLS THIS BANK. 
7602 012160 006162 65$: JSR PC, SPRNTP :SET UP VALUES FOR ERROR PRINTING. 
(2) 012164 007460 JSR PC, SERROR :*** ERROR *s* (GO TYPE A MESSAGE) 
(2) 012170 .WORD 14 “ERROR TYPE CODE. 
7603 012172 24$: 
(2) 012172 MOV RO,-(SP) : PUSH RO ON STACK 
7604 012174 MOV R :GET THE ADDRESS POINTER. 
012176 BIC #3777, RO :CLEAR LOW ADDRESS BITS. 
01 202 SwaBSséRRO :SHIFT 6 PLACES RIGHT. 
ASL RO 
ASL RO 
TST MMAVA :CHECK FOR MEM MGMT. 
BEQ 25$ “BR IF NO MEM MGMT. 
BIC #177600,RO *CLEAR BANK BITS 
2 “ADD MEM MGMT OFFSET. 








ADD @FKIPAR2 ,RO 
25$: BIS #81T15+81TO,RO AND AE BIT IN CHECK WORD. 
(R3), RESRVD 











167256 MOV & IATE MASK. 
BIC RESRVD, RO Y REG BITS RESERVED FOR FUTURE. 

7616 BIC RESRVD, R1 

761 :NOTE: THE ABOVE INSTRUCTION (2 WORDS) CAN 

7618 012250 CMP RO R1 

(2) 012252 001405 6 “BRANCH OVER E ALL I 

(3) 01 004767 006066 66S: PC, SPRNTP :SET UP VALUES FOR ERROR PRINTING. 

(4) 01 004767 007364 PC, SERROR :*e* ERROR *** (GO TYPE A MESSAGE) 

(4) or - -WORD 15 “ERROR TYPE CODE. 
7619 01 $266 005073 000000 CLR a(R3) ; CLEAR LEAR REG INC INCLUDING ACTION ENABLE. 

7620 O12272 010346 MOV R3.-(SP) 

7621 012274 062703 000010 26$: ADD #10, R3  EPDATE POINTER 0 NEXT PARITY REG + MAP. 
7622 01 020367 167324 CMP R3, _MPRX  =CHECK FOR END OF TABLE. 

7623 O12 101014 BHI WWwPB3 “BR IF END OF TABLE REACHED. 


CZQMCGO Q=124K MEMORY SEAL ISER. 
12-MAR-80 13:07 


CPOMCC. P11 


000001 
000000 


006020 
007316 


000000 
167142 
006001 


005756 
007254 


000001 


005732 
007224 


000253 
167116 


177316 


177240 


16K VER 
T17 


68$: 


WWPBS : (R2), RG 
:* READING THE DATA VIA DATI TO 
ACTION ENABLE IS NO 


sNOTE: 


** 
° 


BIC RESRVD, R | 

:NOTE: THE ABOVE INSTRUCTION (2 WORDS) 
BIC WAE, RO 

64$: 


65$: 


- 


30$: 


MACY11 30A(1052) 





BIT 








THE 


MOV 


& 


a(R3), 
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WORSE CASE NOISE PARITY BYTE TESTING 


(R3) 
R1 


SPRNTP 
SERROR 


T SET IN 


R1 


R1 


SPRNTP 
SERROR 


a(R3) 
R1 


:SAVE AND CHECK 
:BR IF NOE 





;CHECK IF NEXT REG EXISTS 
7BR IF THIS PARITY REG DOESN'T EXIST. 
ova ERROR FLAG. 


RROR FLAG. 

sSET UP VALUES FOR ERROR PRINTING. 
* ERROR *** (GO TYPE A MESSAGE) 

“ERROR TYPE CODE. 

7BR AFTER ERROR. 

;GET THE DATA FOR CHECKING. 

CK SHOULD CAUSE PARITY ERROR, BUT 

NO TRAP SHOULD OCCURE. 





ABOVE INSTRUCTION CAN 
WHICH DO ONLY DATOB TO DESTINATION OF MOVB_INSTRUCTIONS. 
MOV (SP)+,R3 ‘READ STACK INTO R3 





AD THE PARITY REGISTER TO CHECK IT AGAIN. 

;CLEAR PARITY REG BITS RESERVED FOR FUTURE. 
CAN BE NOP*ED FOR UNMIXED MEMORY TYPES. 

;CLEAR THE ACTION ENABLE BIT IN TEST DATA. 
:COMPARE THE CHECK WORD WITH THE DATA READ. 
sBRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 
sERROR TYPE CODE. 


;CLEAR ALL BUT ACTION ENABLE. 

:GET DATA READ FROM MEMORY FOR TESTING. 
:3POP STACK INTO RO 

;CHECK THE DATA. 

SBRANCH OVER ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 

;**% ERROR *** (GO TYPE A MESSAGE) 
SERROR TYPE CODE. 


sRESTORE DATA. 
TO BE ATA: RIGHT PARITY. 


aie: AND _— PARITY. 





:BR IF OF BLOCK FOUND. 

; LOOP oe TO TEST NEXT BYTE. 
[FIND NEXT BLOCK AND LOOP TO WwPBYT 
:GO RESET PARITY REGISTERS. 


| 
SEQ 0067) 
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13-4AR-B0 13:10 PAGE 59-51 




















CZOMCGO O-124k MEMORY EXERCISER, 16K VER MACY11 30A(1052) 

CZQMCG.P11 12=MAR-80 13:07 T20 RANDOM DATA TESTING THRU PROGRAM CODE RELOCATION. 

7660 FRRAAAAA EAA ERA EERE EAERERERAEREREEAERERAEARAEREREER ARERR ES 
(3) “TEST 20 RANDOM DATA TESTING THRU PROGRAM CODE RELOCATION. 

(3) = REAR AEEREREREEEREEEEEREREEERAEERERERERAREREERAERREREKRERERES 

(2) 01267 +§120: 

(3) 012472 004567 006142 JSR RS, SSCOPE ;GO TO SCOPE ROUTINE. 

(3) 012476 -WORD 0 ;NO MINIMUM Rg oe SIZE REQUIRED THIS TEST. 

7661 012500 010703 RANTST: MOV PC R3 T CURRENT PROGRAM COUNTER. 

D066 012502 042703 007777 BIC #7777, = R3 “ POINT TO BEGINNING OF CURRENT 2K BLOCK. 

7665 01 7 0017246 JSR R4, INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS. 

7664 012512 010246 1$: MOV R2, - (SP) : . 

7665 012514 010 MOV R3 - (SP) : E NTER. 

7666 01 012 2 2$: MOV (R3)+, (R2)+ MOV CODE INTO TEST MEMORY. 

7667 012520 032703 007777 BIT #7777, R3 :C K FOR END OF ‘DATA TABLE”’ 

7668 01 001 3$ H IF MORE 

7669 012526 162703 010000 #10000, R3 :RESET POINTER TO START OF ‘RANDOM DATA" 

7670 0125 030502 3$: RS, Re > CHECK FOR END OF BLOCK 

7671 012534 001370 2s BRANCH IF MORE. 

7672 oSeze 012603 (SP)+, R3 “RESET *DATA’* POINTER. 

7673 012540 012602 (SP)+, Re sRESET MEMORY POINTER. 

7674 012542 012300 4$: (R3)+, RO :GET S/B DATA. 

7675 012544 012201 (R2)+, R1 7;GET THE DATA FROM MEMORY UNDER TEST. 
(2) 012546 0O 1 R R1 7; COMPARE THE CHECK WORD WITH THE DATA READ. 
(3) 012550 001405 65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
(4) 012552 004767 005620 64$: PC, SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 

(5) 012556 004767 007066 ,_* SERROR ;*** ERROR *** (GO TYPE A MESSAGE) 
(5) 012562 0000 20 :ERROR TYPE CODE. 
(3) 012564 65$: 

7676 012564 032703 007777 #7777, R3 ;CHECK FOR END OF ‘DATA TABLE’’ 

7677 012570 001002 5$ :BR_IF MORE. 

7678 012572 162703 010000 #10000, R3 sRESET POINTER TO TOP OF ‘DATA TABLE’’ 

7679 012576 5$: 

(1) 012576 030502 RS, R2 CHECK FOR END OF A BLOCK. 
(1) 12600 001360 $ “BRANCH IF MORE IN CURRENT BLOCK. 

met, 012602 004767 002406 PC, MMUP 3F IND NEXT BLOCK AND LOOP TO 1$. 

7681 - SBTTL SECTION 3: INSTRUCTION EXECUTION TESTS. 

7706 RARER EE EERE EEREREEEEEREREERRREKEERERREEEERERERERERE KE 
(3) *TE ST 21 EXECUTE DATI, DATO THRU MEMORY. 

(4) :* EXECUTES THE INSTRU CTION "MOV R4,(R2)' THROUGHOUT MEMORY . 
(4) ;* "RTS RS5S* (CODE 305) IS PLACED "AFTER THE ‘MOV’ INSTRUCTION TO RETURN 
(4) 7% CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
oa :* THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 
**® 
(4) 7* MEMORY INSTRUCTION CONTENTS OF MEMORY LOCATION 
2% se LOCATION PLACED THERE AFTER INSTRUCTION EXECUTION 
** 
(4) :* 1ST PASS / 40000 010412 000205 
7 :* THRU TEST / 40002 000205 000205 
*“® 
(4) -* 2ND PASS / 40002 010412 000205 
aa) ;* THRU TEST / 40004 000205 000205 
*“* 
oa} s* PFs a ed ETC. 
** 
(4) :* RO = DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 
(4) :* R1 = DATA READ FROM MEMORY (WAS). 


CZQMCGO 0-124K MEMORY i 16K VER MACY11 30A(1052) 15-war-80 10 PAGE 59-52 
POMC. Pl) 12-MAR-80 15:07 723 EXECUTE DATI, DATO THRU MEMOR 





:* R2 = ADDRE = ADDRESS OF IUT/DATA. 
:* R3 = NSTRUCTION R TEST (1UT). 
se RG = ATs R 
se RS = BLOCK BOUDRY BIT PASK. 
Sf SARA AAAAAAAAAAAAAAAAEAEEAAAAAARAARARARAAAAARARARAAAREAAAEAEAAAED 
1$121: 
006026 JSR RS, $SCOPE :GO TO SCOPE ROUTINE. 
.WORD 3 -MINIMUM BLOCK OF 2 WORDS 
: REQUIRED FOR THIS TEST. 
000056 TST22 ; SKIP TO NEXT TES! WHEN LESS THAN ONE BLOCK 
: AVAILABLE FOR T 
010412 DIDO #010412.R3 *GET MOV R4.(R2)' INSTRUCTION (IUT). 
205 #205, 4 “GET "RTS RS* 
R4, RO *SET UP S/B DATA AFTER EXECUTION. 
001600 R4, INITMM :INITIALIZE THE MEMORY ADDRESS POINTERS. 
1$: RZ, (R2)+  =PUT IUT INTO FIRST LOC OF BLOCK. 
2$: RG, (R2) “PUT ‘RTS RS° FOLL OWING 1UT. 
R5 -(R2)  :GO EXECUTE THE IUT 
(R2)+, R1 “GET THE DATA FROM THE MEM ADR UNDER TEST. 
RO R1 =COMPARE THE CHECK WORD WITH THE DATA READ. 
65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
005514 64% PC, SPRNT3 ;SET UP VALUES FOR ERROR PRINTING. 
766 PC, SERROR & ERROR *** (GO TYPE A MESSAGE) 
a -WORD 21 “ ERROR TYPE CODE. 
R3, (R2)+  =PUT THE IUT INTO THE NEXT LOCATION. 
BIT R5, R2 =CHECK FOR END OF A BLOCK. 





BNE 2$ ; BRAN 
002316 JSR at MMUP ;F IND NEXT BLOCK AND LOOP TO 1$. 


CZQMCGO QO=-124K MEMORY EXERCISER, 


C2OMCG. P11 


012676 





12-MAR-80 13:97 


005422 
006674 


002224 


16K VER MACY11 30A(1052) 
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T22 EXECUTE DATI, DATOB (LOW BYTE) THRU MEMORY 


1ST 


Se Be Be Be Se Be Se Se Se Se Se Se Se Be Se 
Wwe &@#e@eenerenrtentrntenanhreeneenerneeneterer#betee#erkte#ee#er#e#ss 


Pe) 
Nm 
nHhunu 


Pe) 
Wi 
! 


meg eo Se Se Be Be Be Be Se Be Be 


$122: 


65$: 





PASS / 
THRU TEST / 


2ND PASS / 40002 
THRU TEST / 40004 


ETC... 


EVC.. 


INSTRUCTI 
RS" (CODE 205) IS PLACED AFTER 
CONTROL TO THE PROGRAM FOR I 
THIS 1S AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 





MEMORY 
LOCATION 


40000 
+0002 





MAIN 


ETC. 


s RARAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAARARARARARAAAAAAAARRARAERAERARE SD 


EXECUTE action’ ° DATOB (LOW BYTE) THRU MEMORY . 


*"MOVB_R4,(R2)* THROUGHOUT MEMORY. 
HE "MOVB’ INSTRUCTION TO RETURN 
NSTRUCTION EXECUTION CHECKOUT. 





INSTRUCTION CONTENTS OF MEMORY LOCATION 
PLACED THERE AFTER INSTRUCTION EXECUTION 
110412 110605 
000205 000205 
110412 110605 
000205 000205 


DATA WRITTEN ON TOP OF one BY THE IUT ‘SHOULD BE). 
AD FROM Pe o> ll WAS). 









TA. 
ON. UNDER TEST (1UT). 
20 


T MASK. 


MmARARAREAAAALALALAALALAAAALARARERARARE RAR AAA RR RRR ARARA SERRA SASS S| 








RS, SSCOPE : 60 TO SCOPE ROUTINE. 
3 MINIMUM BLOCK SIZE OF 2 WORDS 
> REQUIRED FOR THIS TEST. 
TST23 ; SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 
i AVAILABLE | FOR T 
#110612, RS :GET MOVE R4 »(R2)* INSTRUCTION (IUT). 
#110605 RO “SET - S/B DATA AFTER EXECUTION. 
R4, INITMM : ZE THE MEMORY ADDRESS POINTERS. 
R53, (R2)+ “PUT BLOCK. 
R4, (R2)  =PUT "RTS RS* FOLLOWING IUT. 
RS -(R2)  :GO EXECUTE THE IUT. 
(R2)+, RI *GET THE DATA FROM THE MEM ADR UNDER TEST. 
RO RI =COMPARE THE CHECK WORD WITH THE DATA READ. 
65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
PC, SPRNT3 :SET UP VALUES FOR ERROR PRINTING. 
PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
21 “ERROR TYPE CODE. 
R3, (R2)+  =PUT THE IUT INTO THE NEXT LOCATION. 
RS, R2 “CHECK FOR END OF A BLOCK 
2$ “BRANCH IF MORE IN CURRENT BLOCK. 
PC MMUP =: FIND NEXT BLOCK AND LOOP TO 1$. 


SEQ 0070. 


CZQMCGO Q-124K MEMORY EXERCISER, 
C2OMCG. P11 12-MAR-80 13:07 


(3) 012770 004567 005644 
000003 


(3) 012776 000167 000064 
7781 013002 012703 110 
7782 013006 012704 
7785 013012 012700 1 
7784 7 


00446 
010322 
010412 
004 





004767 002126 


16K VER MACY?1 30A(1052) 1S-ar-80 13:10 PAGE ate 
T23 EXECUTE DATI, DATOB (HIGH BYTE) THRU MEMOR 


Pio eee gy ogo 
TEST 23 EXECUTE i. DATOB (HIGH BYTE) THRU MEMORY. 

EXECUTES THE INSTRUCTION "MOVB R3,-(R2)° THROUGHOUT MEMORY . 

AN "RTS R5‘° (CODE *505) IS PLACED AFTER THE 'MOVB’ INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 

THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 





: MEMORY INSTRUCTION CONTENTS OF MEMORY LOCATION 
LOCATION PLACED THERE AFTER INSTRUCTION EXECUTION 

1ST PASS / 40000 110342 161342 

THRU TEST / 40002 000205 000205 

2ND PASS / 40002 110342 161342 

THRU TEST / 40004 000205 000205 


Crees EM EC. 
DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 
+. (WAS). 


DDD 
WIM 
nnion i 





oe 
Ww 
iN 


REAR ARAAEAAARERAEAAAAAEEAAEAEAKAKEAKREAARAAEKRAKERAEERAERERAARKEKEKEKEE 


$123: 


* Re Ve Ve 
Ure Pere ee RS SS eRe eRe ae Se 


mB eo Be Be Be Be Se Fe Be Fe Be Be Be Fe Be Fe Be Se 





JSR RS, SSCOPE :GO TO SCOPE ROUTINE. 
Q ;MINIMUM BLOCK SIZE OF 2 WORDS 
IRED FOR THIS TEST. 
TST24 ; SKIP TO NEXT TES! WHEN LESS THAN ONE BLOCK 
: AVAILABLE FOR T 
DIDBH: #110342,R3 rf Move ov R3, ~(R2)" INSTRUCTION (IUT). 
#161342,RO “SET UP S/B DATA AFTER EXECUTION. 
R4, E THE MEMORY ADDRESS POINTERS. 
1$: RS, BL " 
23: RG, 
RS. 
R2 : 
(R2)+, MEM UNDER TEST. 
RO R1 =COMPARE THE CHECK WORD WITH THe DATA READ. 
65$ “BRANCH OVER ERROR CALL IF GOCD DATA. 
64S: PC, SPRNT3 :SET UP VALUES FOR ERROR PRINTING. 
PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
sii 21 “ERROR TYPE CODE. 


;PUT THE IUT INTO Me NEXT LOCATION. 
;CHECK FOR END OF A BLOCK, 

:BRANCH IF MORE IN CURRENT ORK. 

7F IND NEXT BLOCK AND LOOP TO 1$. 


SEQ 0071. 


H 6 
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CZ7QMCG.P11 12-MAR=80 13:67 124 EXECUTE DATI, DATIP. DATO THRU MEMORY. SEQ 0072 
cevecT 24s EXECUTE DATI. DATIP. ATCT Ax. ‘ 
4h >*TEST 24 EXECUTE DATI, DATIP, DATO THRU MEMORY. | 
(4) :* EXECUTES THE INSTRUCT ION "NEG (R2)' THROUGHOUT MEMORY . | 
(4) :* RTS RS' (CODE 205) IS PLACED AFTER THE ‘NEG’ INSTRUCTION TO RETURN 
(4) :* CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
(4) ** THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 
-* 
(4) 8 MEMORY INSTRUCTION CONTENTS OF MEMORY LOCATION 
(4) :* LOCATION PLACED THERE AFTER INSTRUCTION EXECUTION 
-* 
(4) :* 1ST PASS / 40000 005412 172366 
(4) -* THRU TEST / 40002 000205 000205 
** 
(4) >*  2ND PASS / 40002 005412 172366 
(4) -* THRU TEST / 40004 000205 000205 
-* 
(4) :* ore... 27C.« tC. 
(4) + te 


(4) 
(4) -* RO = DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 

(4) "* R1 = DATA READ FROM MEMORY (WAS). 

(4) >* R2 = ADDRESS OF IUT/DATA. 

(4) :* R3 = INSTRUCTION UNDER TEST (IUT). 

(4) >* RG = RTS RS (CODE 205). 

(4) >* RS = BLOCK BOUNDRY BIT MASK. 

(3) “RRERKAKERAAKERAARKEAAERAAERAKAKAAAKKEAAAEAAHRAAAAEKAEAKEKAAHAEAKAKKKKKEE 

(2) 013066 TST 24: 

(3) 013066 004567 005546 JSR RS, $SCOPE :GO TO SCOPE ROUTINE. 

(3) 013072 000003 -WORD 3 ; MINIMUM BLOCK SIZE OF 2 WORDS 

(3) > REQUIRED FOR THIS TEST. 

(3) 013074 000167 000060 JMP TST25 ; SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 
(3) - AVAILABLE FOR TEST. 
7821 013100 012703 005412 DIPDO: MOV #005412, RS “GET "NEG ina) INSTRUCTION (IUT). 
7822 013104 012704 000205 MOV #205 “GET "RTS R 
7823 013110 012700 172366 MOV #172366, RO *SET UP a DATA AFTER EXECUTION. 
7824 013114 004467 001316 JSR R4, INITMM :INITIALIZE THE MEMORY ADDRESS POINTERS. 
7825 013120 010322 1$: MOV R3, (R2)+  =:PUT IUT INTO FIRST LOC OF BLOCK. 
7826 013122 010412 2$: MOV R4. (R2)  =PUT ‘RTS RS" FOLLOWING IUT. 

7827 013124 004542 JSR R5 -(R2)  :GO EXECUTE THE IUT. 
7828 013126 012201 MOV (R2)+, RI “GET THE DATA FROM THE MEM ADR UNDER TEST. 
13130 020001 CMP RO R1 *COMPARE THE CHECK WORD WITH THE DATA READ. 

(2) 013132 001405 BEQ 65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 

(3) 013134 004767 005232 64$: JSR PC, SPRNT3 :SET UP VALUES FOR ERROR PRINTING. 

(4) 013140 004767 006504 JSR PC, SERROR :«%* ERROR *** (GO TYPE A MESSAGE) 

(4) 013144 000021 .WORD 21 “ERROR TYPE CODE. 

(2) 013146 65$: 
7830 013146 010322 MOV R3, (R2)+  =PUT THE IUT INTO THE NEXT LOCATION. 

7831 013150 030502 BIT RS, R2 “CHECK FOR END OF A BLOCK. 

(1) 013152 001363 BNE 2$ “BRANCH IF MORE IN CURRENT BLOCK. 

(1) 013154 004767 002034 JSR PC, MMUP FIND NEXT BLOCK AND LOOP TO 1$. 


CZQMCGO Q0-124K MEMORY SEA ISER. 
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010322 
030502 


001363 
004767 





001742 


16K VER 
T25 


MACY11 30A(1052) 
EXECUTE DATI, 


DATI, 


6 
12-WAR-80 13 
DATIP, DATOB (LOW BYTE) THRU MEMORY. 
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MARR AREBAAAALALARARELARRARARERERARARERRR RRR RRA R ERA RR RRR AREAS SS S| 


Se Be Be Be Be Be Se Be Be Se Be Se Se Se Se Se 


RS = 


o 7 . 7 >. 
eee Fae re eer er ee Fee Se eee 


—qGte Se @e Be & Se Be Be Be 


$125: 


65$: 


TEST 25 

ewe THE INSTRUCTI 
AN ‘RTS R5° (CODE <> IS “ery AFTER THE BICB* | 
CONTROL TO THE MAIN PROGRAM FOR INS 

THIS 1S AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 


INSTRUCTION 
PLACED THERE 


EXECUTE DATI, 
ON” 








MEMORY 
LOCATION 


1ST PASS / 40000 
THRU TEST / 


2ND PASS / 40002 
THRU TEST / 40004 


40002 


DATI, DATIP, DATOS (LOW BYTE) THRU MEMORY. 
BICB (R2)+,-(R2)' THROUGHOUT ME 


MORY . 
NSTRUCTION TO RETURN 
TRUCTION EXECUTION CHECKOUT. 


CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 


142242 142000 
000205 000205 
142242 142000 
000205 000205 


DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 
“0 ed (WAS). 





eve... Sit... £9¢. 
JSR RS, $SCOPE 
.WORD 3 

JMP TST26 

MOV #142242 R35 

MOV #205.  R4 

MOV #142000 ,RO 

JSR 4, INI TMM 
MOV -¥ (R2)+ 
MOV 4, (R2) 
JSR 5 =(R2) 
MOV (R2)+, R1 

CMP RO 1 

BEQ 65$ 

JSR PC, SPRNT3 
JSR ad SERROR 
“WORD 21 

MOV R3, (R2)+ 
BIT RS. R2 
BNE 2$ 

JSR PC, MMUP 


“RERRAAAEAEAAAAARAAAEAEEEAEAEAEKKEKKAKAKKEAEEAKEAREKEAAEKERAEREEKEKREEREEEH 


:GO TO SCOPE ROUTINE. 
sMINIMUM BLOCK SIZE OF 2 WORDS 
; REQUIRED FOR THIS TEST. 


; SKIP TO NEXT TEST fas LESS THAN ONE BLOCK 
; AVAILABLE FOR 


TEST 
:GET Tare (ag)*. ,~(R2)* INSTRUCTION (IUT). 


;SET UP S/B DATA AFTER EXECUTION. 

s INITIALIZE THE MEMORY ADDRESS POINTERS. 
:PUT IUT INTO FIRST LOC OF BLOCK. 

:PUT "RTS R5' FOLLOWING IUT. 


;GO EXECUTE THE IUT. 


:GET THE DATA FROM THE MEM ADR UNDER TEST. 
;COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 


sERROR TYPE CODE. 


sPUT THE IUT INTO He NEXT LOCATION. 
: CHECK FOR END OF A BLOCK. 

CH IF MORE IN CURRENT re 
FIND NEXT BLOCK AND LOOP TO 1$. 


—— 


CZQMCGO O0-124K MEMORY EXERCISER, 
12-MAR-80 15:07 


CPOMCG. P11 


013252 





004567 
000003 
000167 
012703 
012704 


004467 

010322 

010412 
54 


005 562 
000062 
152212 
000205 


157212 
001132 


005044 
006316 


001646 
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EXECUTE DATI, DATI, DATIP, DATOB (HIGH BYTE) THRU MEMORY. 


SARA ARAAAAAAAAAAAAEAEAAAEAEAAEAAAREEAARAAARAERARARAEARAAARERERRAEE 
EST 26 EXECUTE DATI, DATI, DATIP, DATOB (HIGH BYTE) THRU MEMORY. 
EXECUTES THE INSTRUCTION 'BISB (R2)+,(R2)" THROUGHOUT MEMORY. 

AN ‘RTS R5' (CODE 205) IS PLACED AFTER THE °BISB’ INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 

THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 


16K VER | 
726 SEQ 0074 


MEMORY INSTRUCTION CONTENTS OF MEMORY LOCATION 
LOCATION PLACED THERE AFTER INSTRUCTION EXECUTION 
1ST PASS / 40000 152212 157212 
THRU TEST / 40002 000205 000205 
2ND PASS / 40002 152212 157212 
THRU TEST / 40004 000205 000205 


oe s Ve 
~ne. oueununeennneeneeenpeeneenenennnenaee 
~ 


ETC.. ETC.. ETC. 


“EERE REAAEAEAAEKAAREEEEEEAEEKAKEKKAEAAAKEAKKEKAAKEKKKEKAEKRARKEKAEKEKKKEEE 


726: 


;* RO = DATA WRITTEN ON TOP OF IUT BY THE IUT (SHOULD BE). 
;* R171 = DATA READ FROM MEMORY (WAS). 

;* R2 = ADDRESS OF IUT/DATA. 

:* R3 = INSTRUCTION UNDER TEST (IUT). 

:* R& = RTS R5 (CODE 205). 

: R5 = BLOCK BOUNDRY BIT MASK. 

T 


JSR RS, S$SCOPE :GO TO SCOPE ROUTINE. 
.WORD 3 “MINIMUM BLOCK SIZE OF 2 WORDS 
> REQUIRED FOR THIS TEST. 
TST27 ; SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 
- AVAILABLE FOR T 
DPDBH: #152212,R3 GET ‘BISB (R2)+, ERD INSTRUCTION (IUT). 
g RZ “GET "RTS RS’ 
#157212.RO “SET UP S/B DATA AFTER EXECUTION. 
R4, INITMM :INITIALIZE THE MEMORY ADDRESS POINTERS. 
1$: 3, (R2)+  =PUT IUT INTO FIRST LOC OF BLOCK. 
2$: ¥ (R2) =PUT ‘RTS RS* FOLLOWING IUT. 
; -(R2)  :GO EXECUTE THE I 
“RESET R2 TO POINT TO IUT. 
(R2)+, R1 “GET THE DATA FROM THE MEM ADR UNDER TEST. 
RO R1 “COMPARE THE CHECK WORD WITH THE DATA READ. 
65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
64S: PC, SPRNT3 :SET UP VALUES FOR ERROR PRINTING. 
PC; SERROR :*** ERROR **x (GO TYPE A MESSAGE) 
a 21 “ERROR TYPE CODE. 
R3, (R2)+  =PUT THE IUT INTO THE NEXT LOCATION. 
RS. R2 “CHECK FOR END OF A BLOCK. 
2$ “BRANCH IF MORE IN CURRENT BLOCK. 
PC, MMUP §_ : FIND NEXT BLOCK AND LOOP TO 1$. 
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CZQMCG.P11 12-MAR-80 13:07 SECTION 4:MOS T SEQ 0075 
.SBTTL SECTION 4:MNS TESTS 
7932 j { CRASHERS RST SN eRORenSereawaseeasanesesseqneseseeqenasesesete 

(3) :*TEST 27 MARCHING 1°S O'S. 

(4) 37* THIS oe. is oes iar TO STRESS MOS MEMORIES. 

(4) :* STARTING AT THE BOTTOM ADDRESS AND ADDRESSING UPWARDS A 4K BANK IS 

(4) ;* 000577. THEN STARTING AT THE TOP ADDRESS OF THE BANK THE 

(4) :* S 400 AND THE LOCATION 

(4) ;* IRM THE WRITE.THIS IS REPEATED FOR EVERY LOCATION 

(4) ;* D UN T EACHED. S$ & 

(4) :* BOTTOM EACH LOCATION IS READ FOR 177400,THE BYTES S 

(4) :* ER TO C WRITE UNTIL THE T THE 

(4) ;@ HED. AGAIN STARTING AT_THE BOTTOM EACH LOCATION IS READ 

(4) :* BYTES SWAPPED T 00 AND THE LOCATION REREAD 

(4) >* ITE. LASTLY STARTING FROM THE TOP AND ADDRESSING DOWN- 

(4) ;* WARD EACH LOCATION IS READ, THE BYTES SWAPPED TO AND THE 

(4) ;* LOCATION IS REREAD TO CONFIRM THE WRITE. THIS IS REPEATED FOR EVERY 

4 :*4K BANK UNDER TEST. 

*® 

(4) ;@ RO=DATA WRITTEN INTO MEMORY(SHOULD BE) 

(4) ;@ R1=DATA READ FROM MEMORY (WAS) 

(4) 2* R2=VIRTUAL ADDRESS 

(4) 7° R35=TIMES THROUGH COUNTER 

(4) ;* R4=NOT USED 

(4) s® R5=BLOCK BOUNDARY BIT MASK. 

(3) 2 RARER EERAEER ERE REE EREEE EERE EREEE EERE 

(2) 013346 TST2?: 

(3) 013346 004567 005266 JSR R5, SSCOPE ;GO TO SCOPE ROUTINE. 

(3) 013352 000000 -WORD 0 :NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
7933 013354 004467 001056 JSR RS, INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS. 
793% 013360 010267 1662350 MOV R2, TEMP : SAVE BANK STARTING ADDRESS 
7935 013364 005003 1$ R :CLEAR PASS COUNTER 

13366 012700 000577 #000377 ,RO :SETUP TO WRITE PATTERN 
7937 3372 010022 2$ RO, (R2)+ [WRITE PATTERN 
013374 030502 R5,R2 sEND OF 4K? 
7939 013376 0013575 : CONTINUE WRITING IF NO. 
0 013400 014201 3$ -(R2) ,R1 :GET DATA WRITEN 
7941 013402 0 1 RO, R1 [COMPARE THE CHECK WORD WITH THE —_ READ. 

(2) 013404 001405 65$ ;BRANCH OVER ERROR CALL IF GOOD DAT 

(3) 013406 004767 004764 64$: at SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 

(4) 013412 004767 006232 a? SERROR ;**%* ERROR *** (GO TYPE A MESSAGE) 

(4) 013416 000010 10 sERROR TYPE CODE. 

(2) 013420 65$: 

7942 0134 4$: RO ;SWAP BYTES OF DATA 

7943 013422 MOV RO,(R2) ;WRITE SWAPPED WORD 

7944 013424 MOV (R2) ,R1 :GET DATA WRITEN 

7945 At oa CMP R1 OMPARE THE CHECK WORD WITH THE Hy READ. 

(2) 0134 BEQis«é6 7S BRANCH OVER ERROR CALL IF GOOD DAT 

(3) At ot 004740 66$: JSR rm. SPRNT 2 sSET UP VALUES FOR ERROR PRINTING. 

(4) 013436 006206 JSR Pls SERROR * ERROR **x*x (GO TYPE A MESSAGE) 

(4) O eect -WORD 10 “ERROR TYPE CODE. 

(2) Q1 67$: 

7946 013444 SWAB RO ;PUT DATA BACK TO ORINGINAL 
7947 Q1 TST R3 :IF ON PASS 0 OR PASS 3 
7948 013450 BEQ 5$ :WE ARE ADDRESSING DOWN 
7949 013452 000003 CMP R3,43 :1F ON PASS 1 OR 2 GO TO 
7950 013456 BNE 6$ UPWARD 





Ww 
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7951 01 S$: BIT RS,R2 ;DONE A PASS? 
7952 01 BNE 3$ NO CONTINUE 
7953 01 INC R3 *IF YES INCREMENT PASS COUNTER 
7954 000004 CMP #4 ,R3 “ARE WE DONE ALL PASSES FOR THIS 4K? 
7955 BEQ 9$ “IF YES H 
SWAB SséRRO “ELSE SET UP NEW READ WORD 
BR 7$ -GO TO START OF ADDRESS UP 
000002 6S: ADD #2,.R2 ; UPDATE TO NEXT ADDRESS 
BIT R5,R2 ;DONE _A PASS 
BEQ F YES BRANCH 
7$: MOV (R2) RI “GET DATA WRITTEN 
CMP RO R1 “COMPARE THE CHECK WORD WITH THE DATA READ. 
BEQ 69$ =BRANCH OVER ERROR CALL IF GOOD DATA. 
004654 68$: JSR PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
006122 JSR PC, SERROR :%** ERROR *** (GO TYPE A MESSAGE) 
“WORD 10 “ERROR TYPE CODE. 
69$: 
BR 4$ 
8$: INC R3 : INCREMENT PASS COUNTER 
SWAB ~—Ss« RO “SET UP NEW READ WORD 
000002 CMP R3,42 ; ADDRESSING UP? 
BNE 3$ NO GO TO DOWN SEQUENCE 
166044 MOV TEMP ,R2 “IF YES RESET ADDRESS TO START 
BR 7$ -GO TO UP SEQUENCE 
000660 9$: JSR R4, INI TMM * INITIALIZE MEMORY ADDRESS POINTERS 
013556 001432 JSR PC .MMUP “UPDATE TO NEW BANK IF EXISTS 
ae PORE RESELAERBALZALLALCALAAAEAARA AMBP E EAA ALE EEE EEE EERE Ree RA AAA SS 
=*TEST 30 WRITE CHECKERBOARD STARTING WITH '125252° DATA. 


:* THESE TESTS WRITE A CHECKERBOARD THROUGHOUT MEMORY ,STALL 
:* FOR 2 SECONDS THEN CHECK PATTERN TO VERIFY DATA DID NOT 
>* DETERIORATE BETWEEN REFRESH CYCLES. 














** 
8 RO=DATA WRITTEN INTO MEMORY (SHOULD BE) 
;* R1=DATA READ FROM MEMORY (WAS) 
:* RE=VIRTUAL ADDRESS 
:* =SMALL LOOP COUNTER FOR STALL 
:* R4=NUMBER OF TIMES SMALL LOOP DONE 
: 25=BLOCK BOUNDARY BIT MASK. 
ie “REEEKAKARAKEAKAKAAKAAATAKEEARAARKKAKKARAKKAKKKKAKEKEKKKAKKEKAKKAKAEKKEAAKEEAER 
013562 TST30: 
013562 004567 005052 JSR RS, S$SCOPE :GO TO SCOPE ROUTINE. 
013566 000000 . WORD *NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
013570 467 000642 JSR R4 INITMM <:INITIALIZE THE MEMORY ADDRESS POINTERS. 
013574 012700 125252 MOV #125252 RO “SETUP DATA PATTERN 
013600 010022 1$: MOV RO *(R2)+ =WRITE A WORD 
13602 005100 COM RO - COMPLEMEN 
013604 030502 BIT 7. R2 -CHECK FOR END A BL 
(1) 01 001374 1 ; IF MORE IN CURRENT BLOCK. 
(1) 013610 767 001400 JSR PC, MMUP § :FIND NEXT BLOCK AND L 
7991 013614 005003 CLR R3 *SET UP COUNTER FOR STALL 
7992 013616 012704 000046 MOV #46, RG “DO LOOP 46 TIMES OR « SEC. TOTAL. 
7993 013622 005303 23: DEC R3 
7994 013624 001376 BNE 2$ 
7995 01 5304 DEC R4 
7996 013630 001374 2$ 
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CZ7QMCG.P11 12=MAR-80 13:07 T30 WRITE CHECKERBOARD STARTING WITH '125252° DATA. SEQ 0077 
7997 01 004467 JSR INITMM ;INITIALIZE THE MEMORY ADDRESS PUINTERS. 
7998 ot 012700 - MOV 9135252. RO “INIT DATA FOR CHECKING 
(1) 01 $ 01 201 MOV (R2)+, R1 :GET THE DATA FROM MEMORY UNDER TEST. 
(2) 01 CMP RO R1 =COMPARE THE CHECK WORD WITH THE DATA READ. 
(3) 01 1403 BEQ 65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
(4) 013650 004767 004522 64$: JSR PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
(S) 013654 004767 005770 JSR PC, SERROR :%s* ERROR *** (GO TYPE A MESSAGE) 
(5) 01 000006 .WORD 6 “ERROR TYPE CODE. 
(3) 01 65S: 
8000 01 5100 COM RO 
8001 01 030502 BIT R5, R2 :CHECK FOR END OF A BLOCK. 
(1) 01 001365 BNE 3$ “BRANCH IF MORE IN CURRENT BLOCK. 
(1) 013670 004767 001320 JSR PC, MMUP § :FIND NEXT BLOCK AND LOOP TO 1$. 
8002 PITTTITICITITITITTLT LIL LILLIE LL LLL th ahh ike 
(3) SSTEST 31 WRITE CHECKERBOARD STARTING WITH 052525 DATA 
(3) PITT Titi itiiiitiisiiiittiti iit iiticiiiiittitii i iittitt it iii 
(2) 013674 TST31: 
(3) 013674 004567 004740 JSR RS, SSCOPE :GO TO SCOPE ROUTINE. 
(3) 000000 WORD yi “NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
3 000530 JSR INI TH ‘INITIALIZE THE MEMORY ADDRESS POINTERS. 
8004 052525 MOV 70$2525.R “SETUP DATA PATTERN 
8005 1$: MOV RQ. fR2)* “WRITE A WORD 
8007 BIT RS, R2 : CHECK FOR END OF A BLOCK. 
(1) BNE 1$ H IF MORE IN CURRENT BLOCK. 
(1) JSR PC, MMUP “FIND NEXT BLOCK AND LOOP TO 1$. 
8008 CLR R3 *SET COUNTER FOR LOOP 
8009 MOV #46, R4 "DO LOOP 46 TIMES OR 2 SEC. TOTAL 
8010 2$ DEC R3 
8011 BNE 
8012 DEC R4 
801 BNE 2s 
8014 JSR INITMM : INITIALIZE THE MEMORY ADDRESS POINTERS. 
8015 - MOV #0§2525, RO “INIT PATTERN FOR CHECKING 
(1) MOV (R2)+, RI :GET THE DATA FROM MEMORY UNDER TEST. 
(2) CMP R1 “COMPARE THE CHECK WORD WITH THE DATA READ. 
(3) BEQ 65$ “BRANCH OVER ERROR CALL IF GOOD DATA. 
(4) 64$: JSR PC, SPRNT2 :SET UP VALUES FOR ERROR PRINTING. 
(5) JSR PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
(5) ,WORD 6 “ERROR TYPE CODE. 
(3) 65S: 
8017 RO 
8018 BIT R5, R2 -CHECK FOR END OF A BLOCK. 
(1) BNE 3$ “BRANCH IF MORE IN CURRENT BLOCK. 
(1) JSR PC, MMUP § : FIND NEXT BLOCK AND LOOP TO 1$. 
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004626 
165150 
165056 
164552 
164544 
000200 
000003 
000042 
001224 
002362 
172002 


002754 
000042 


003150 
007366 





165502 
165474 
165066 
164520 
000046 


16K VER 
DONE 


MACY11 30A(1052) 
RELOCATE PROGRAM AND REPEAT ALL TESTS. 


.SBTTL DONE: 
DONE : 


TST32: 


1$: 


2$: 


3$: 
4$: 


5$: 
6$: 


N 6 
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SEQ 0078 


RELOCATE PROGRAM AND REPEAT ALL TESTS. 


R5, 
0 


STIMES 
$TST 


$SCOPE 


NM 
PRGMAP, SAVTST 


“BR 
PRGMAP+2, SAVIST#2 ; CHECK H 
SEOP 


#SWO7, a@SWR 
oP 

#3, PRGMAP 

4$ 

B42, ath6 

BASENV 

6$ 

PC, REL TOP 

START1 

PC RELO 

as2 

6$ 

PC, RESLDR 

R5, SPRINT 

$CRLF 


NUMBER. 
oe IF PROGRAM IS_IN TEST 


;GO TO SCOPE ROUTINE. 
:NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
RESET TEST MP COUNTER FOR RESTARTING TEST. 


AREA. 
F IT PROG IN MEM TO BE TESTED. 








F PROG NOT IN MEM TO BE TESTED. 
FOR INHIBIT RELOCATION SWITCH. 


* CHECK 
SKIP RELOCATION IF SWITCH SET. 


OR APT11 
VIF APT11 DO NOT RELOCATE 
:MUST BE XXDP OR STANDALONE 
;RELOCATE PROGRAM TO TOP OF MEMORY. 
:LOOP BACK AND RUN ALL TESTS AGAIN. 


;RELOCATE PROGRAM BACK TO FIRST 8k. 
sTEST FOR XXDP 

:1F NOT RUNNING UNDER MON. DONT 
;RESTORE LOADERS. 


:GO PRINT OUT THE FOLLOWING MESSAGE. 
sADDRESS OF MESSAGE TO BE TYPED 
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CZ7QMCG.P11 12-MAR-80 REPEAT ALL TESTS. SEQ 0079 

8046 SF RARER AAEAAARAERERARARAARREREREERAEEEREREHE ES 
(1) 

Hf .SBTTL END OF PASS ROUTINE 

(1) > * INCREMENT THE PASS NUMBER (SPASS) 

(1) = * TYPE "END PASS #XXXXx'’ or XXXXX IS A DECIMAL NUMBER) 

(1) :*IF THERES A MONITOR GO TO IT 

ht :*]— THERE ISN’T JUMP TO START 

(1) 014136 SEOP: 

(2) 014136 000240 NOP 

(1) 014140 005067 165024 CLR STIMES 37ZERO THE NUMBER OF ITERATIONS 

(1) 014144 005267 165042 INC SPASS ‘eae aoe THE PASS NUMBER 

(1) 014150 042767 100000 165034 BIC #100000 .,.$PASS DON'T ALLOW A NEG. NUMBER 

(1) 014156 005327 DEC (PC)+ ;;LOOP? 

(1) 014160 000001 SEOPCT: .WORD 1 

(1) 014162 3040 BGT SDOAGN 77 YES 

(1) 014164 012737 MOV (PC)+,a(PC)+ > RESTORE COUNTER 

(1) 014166 1 SENDCT: .WORD 1 

(1) 014170 014160 SEOPCT 

(2) 014172 006567 007324 JSR RS, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 014176 014270 -WORD SENDMG ; ADDRESS OF MESSAGE TO BE TYPED 

(2) 014200 016746 165006 MOV SPASS ,- (SP) ;SAVE SPASS FOR TYPEOUT 

(4) 7* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPDS ROUTINE 
(4) :* WIHTOUT USING A ‘‘TRAP’’ INSTRUCTION AS CALLED FOR BY **SYSMAC**. 
(4) 014204 013746 177776 MOV afPSW., -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
(4) 014210 004767 010226 JSR PC, STYPDS ;GO TO THE SUBROUTINE 

(2) 014214 006567 007302 JSR RS, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 014220 014305 -WORD SENULL sADDRESS OF MESSAGE TO BE TYPED 

; : : 014222 SGET42: 

(1) 014222 163614 MOV 42, RO 7zGET MONITOR ADDRESS 

(1) Dress BEQ SDOAGN ; ;BRANCH IF NO MONITOR 

(1) 0142 RESET ; CLEAR THE WORLD 

(1) O71 SENDAD: JSR PC, (RO) ::GO TO MONITOR 

(1) 014234 NOP 32 SAVE ROOM 

(1) 014236 NOP 7 FOR 

(1) 014240 NOP ;3ACT11 

(1) 0142462 000042 000046 CMP O42 ,a#46 ;ARE WE UNDER ACT11 OR XxDP 

(1) 014250 BEQ SDOAGN :31F ACT11 THEN RESTART 

(1) 014252 001224 TSTB a*SENV sCHECK FOR APT11 

(1) O14 SDOAGN IF APT11 THEN RESTART 

(1) O17 003074 JSR PC, SAVLDR ;;IF XXDP FIRST SAVE MONITOR 

(1) 014 SDOAGN: 

(1) O14 171624 JMP STAR »RETURN® #222 

(1) 014 047105 020104 SENDMG: .ASCIZ ST ene 12>/END pass’ #/ 

(1) O17 oShe 051523 021440 

(1) 014 

(1) 014305 377 000 SENULL: .BYTE <-1,-1,0 oe STRING 
8047 -SBTTL SUBROUTINE ION. 


AND” TRAP Routine SE SECT 

.SBTTL MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES. 

- KEAEARAKAAREAERAEAEARAAEEAEAEAAEARAAAAAAKAAAAARAEAAARAAKEAERAKAKRAAEEAEREAEE 
SET UP ALL THE MEM MGMT REGISTERS FOR NORMAL OPERATION. 

THE PROGRAM IS POINTED TO BY PARS 0 AND 

THE MEMORY UNDER TEST IS POINTED TO BY PARS 2 AND 3. 

THE DEVICE ADDRESS AREA IS POINTED TO BY PAR 7. 








** 
*® 
-® 
** 


CZQMCGO 0=-124K MEMORY SeERG SER. 16K VER 
C P11 12-MAR-80 13:0 MEMORY MANAGEMENT 


:* PARS 4, 5, AND 6 ARE UNUSED. 


eee 8 


-o- 
_— 
= 


ForoReesas 


g 


SRECECECENL ti ct ct RS ReRRRSBEES: 





SSKARELES 








012767 
005067 





000001 
165076 


165130 
164124 


172344 
040000 
165044 
165036 
000200 
165016 
165014 
165002 
164774 
165016 
020000 


172344 
164742 
164736 






000200 
164716 


165100 


165026 
165020 
172344 


MACY11 30A(1052) 12-HAR-80 13:10 PAGE 59-63 
ING SUBROUTINES. 


AND ADDRESS 


i me -_— 


© * EEE AAAEAEAEEEAEEAAEAAEAEATEKCAAEAAKEAAAAARAKRAAARAAARAEARERARAAEKREAEEE 


#200-1*400+UP+RW, a#K IPDRO 
#200-1 +400+UP+RW, @AKIPDR1 
#200-1 *400+UP+RW, AFKIPDR2 
#200-1*400+UP+RW, a#KIPDR3 
@FK IPDR4S 


MMINIT: 


pony add 
#200-1*400+UP+RW, A#KIPDR7 
afk ;MAP 





:MAP PAR2 INTO BANKO 





;MAP PAR7 INTO I/0 BANK 
bpd MEMORY MANAGEMENT 


RW UP 200 BLOCKS 


“EERE RAKAAERAEARAKRAAKRKEEREEEEKEEKAEKEKRAAKKEKAAKREAEKEKREKEKAERAERAKKKKAKRKE 


MEMORY ADDRESS POINTER INITIALIZATION ROUTINES. 


MmALRAAASALALASAASALLLALAAAAALSAAL ALE ARRAS ARE AAR A RARE AA RARE SSS SS | 


#B1TO, BITPT 


, » te 
iNITMM: MOV 


1$: 


2$: 


3$: 
4$: 


5$: 


BITPT+2 
R 





BITPT, 
; BRANC 
BITPT+2, TSTMAP+2- ; CHECK 45 HI MAP 


#200, ark IPAR2" :UPDATE 
BITPT+2 ‘ag Hl POINT 

AL ERROR! | 
gitpT, LADMAP 


LADMSK, 






BITPT, 


TMPPT 
BITPT+2,TMPPT+2 ; 
#B1T13, RS 


21 
pL @#kK IPAR3- 


a 


» Re 
TS TMAP 


R5 








;SET POINTER TO BANKO 
64K BANK POINTERS 


:CLEAR HI 


:SET ADDRESS Ay og TO 0 





“RESET VIRTUAL ADR POIN 


TER 
:CHECK IF THIS BANK TO BE TESTED 
H IF MATCH 





F MATCH 
MEM MGMT, 





IRD PAR. 


TH 
; UPDATE LO POINTER TO NEXT BANK. 























F MORE. 
NO 4K BANK FOUND? 
:CHECK IF LAST BANK. 


7BR IF LAST BANK. 
BITPT+2,LADMAP+2° ioe IF LAST BANK. 
4$ ;BR IF NOT LAST BANK. 


;SET MASK TO FIND LAST ADR. 





BRANCH IF 
:UP DATE 


VIRTUAL 


J 
; CHECK FOR A BLOCK SIZE OF 8k. 
NOT at 


#20000, TMPLAD :MAKE SURE V LAST ADR IN BANK 2. 
Bex IPAR2, @AKIPARS :COPY CURRENT PAR INTO FORTH PAR. 
> COPY BITPT.. .L0 64K. 


FORTH PAR. 
;UPDATE LO POINTER TO NEXT 4K BANK. 


SEQ 0080 


7 
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12-MAR-80 15:07 MEMORY MANAGEMENT AND ADDRESSING SUBROUTI SEQ 0081 
8109 014632 006167 164714 ROL TMPPT +2 ee ft POINTER. 
8110 014636 100473 BMI 20$ F NO MORE. 
8111 014640 036767 164704 164662 BIT TMPPT, TSTMAP [CHECK IF GANK TO BE TESTED. 
a1 1§ 014646 001004 BNE 6$ ;BRANCH IF A MATCH. 
8113 014650 036767 164676 164654 BIT TMPPT+2,TSTMAP+2 ;CHECK FOR HI 64K BANK 
8114 014656 001760 BEQ 5$ ; H IF NO ME 
8115 014660 036767 164664 164714 6$: BIT TMPPT, LADMAP 5 IF LAST BANK. 
8116 0 001004 BNE H IF A MATCH 
8117 014670 036767 164656 164706 BIT TMPPT+2,LADMAP+2 ;CHECK HI 64K 
8118 014676 001455 BEQ 21$ ;BR IF NOT LAST BANK. 
8119 014700 016705 164674 7$: MOV LADMSK, R5 ;RESET MASK TO FIND LAST ADR. 
8120 014704 052767 020000 164664 BIS #20000, TMPLAD ;MAKE SURE LAST ADDRESS IS IN BANK 3. 
ais} 014712 000447 BR 21$ ;BR TO FINISH UP. 
8123 014714 036767 164624 164606 108: BIT BITPT, TSTMAP ;CHECK IF THIS BANK TO BE TESTED. 
8124 014722 001006 BNE 11$ :BR IF MATCH. 
8125 014724 062702 020000 ADD #20000, R2 sUPDATE PHYSICAL ADR PNTR TO NEXT BANK. 
8126 014730 106367 164610 ASLB BITPT [UPDATE BANK POINTER TO NEXT BANK. 
8127 014734 100367 BPL 10$ ;BR_IF MORE BANKS. 
8128 014736 000000 HAL T ;FATAL ERROR!!! NO 4K BANK FOUND? 
8129 014740 016767 164600 164602 11$: MOV BITPT, TMPPT :COPY BANK POINTER. 
8130 014746 036767 164572 164626 BIT BITPT, LADMAP ;CHECK IF LAST BANK. 
8131 014754 001021 BNE 1 ;BR_IF LAST BANK. 
8132 014756 032705 020000 BIT #B1T13, R5 ;CHECK FOR 8K BLOCK SIZE. 
8133 014762 001423 BEQ 21$ BRANCH IF SMALLER — SIZE. 
8134 014764 106367 164560 ASLB TMPPT sPOINT TO NEXT 
8135 014770 100416 BMI : H IF OVERF 
8136 014772 036767 164552 1645350 BIT ;CHECK IF BANK TO BE TESTED 
8137 015000 001412 BEQ ;BRANCH IF NOT TO BE TESTED 
8138 015002 112767 000011 164547 MOVB ;SET 8K BLOCK SIZE FLAG. 
8139 015010 036767 164534 164564 BIT CHECK FOR LAST BANK. 
8140 015016 001403 BEQ :BR IF NOT LAST BANK. 
8141 015020 016705 164554 12$: MOV LADMSK, R5 RESET MASK TO FIND LAST ADR. 
8142 015024 BR 21$ P MASK RE 
8143 015026 012705 017777 20$: MOV AMASK4K ,R5 ;RESET MASK TO 4K BLOCK SIZE. 
8144 015032 056767 164506 164510 21$: BIS BITPT, TMPPT  ;SET TMPPT FOR FLAGING LAST BANK. 
8145 015040 056767 164502 164504 BIS BITPT+2, TMPPT+2 
8146 015046 036767 164472 164514 BIT BITPT, FADMAP > CHECK : FIRST ADDRESS NEEDS YO BE SET. 
8147 015054 001004 BNE 2 F iy BANK . 
8148 015056 036767 164464 164506 BIT BITPT+2, FADMAP+2° ; CHECK H 
8149 015064 001450 BEQ INI TEX IF NOT FIRST BANK. 
8150 015066 016702 164472 223: MOV TMPFAD, R2 “RESET ADDRESS POINTER TO FIRST ADR. 
a 2, 015072 000445 BR INITEX 
8155 015074 016705 164506 INITDN: MOV BLKMSK, R5 ;RESET R5 TO CURRENT BLOCK MASK. 
8154 015100 005002 CLR R2 ; INIT ADDRESS POINTER. 
8155 015102 005767 163500 TST MMAVA ;CHECK FOR MEM MGMT 
8156 015106 001411 BEQ 31$ ;BRANCH IF NO MEM MGMT 
8157 015110 012767 100000 164430 MOV #B1T15, BITPT+2 ;SET POINTER TO TOP BIT 
8158 015116 005067 164422 CLR BITPT 
8159 SEA 012737 007600 172344 MOV #7600, @A#KIPAR2 ;SET PAR TO TOP OF MEM 
Bet 0151 000403 BR 32$ ;BRANCH TO COMMON AREA 
8162 015132 012767 000400 164404 31$: MOV #B1T8, BITPT eset UP BANK POINTER 
8165 015140 012767 015162 164406 32$: MOV 433%, | MMORE MMDOWN'' EXIT ADDRESS. 
8164 015146 066767 163426 164400 ADD RELOCF, MMORE ‘ADD OF FSET 
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eFOMce. P11 12=MAR-80 13:07 MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES. SEQ 0082 | 
8165 015154 004767 000524 JSR PC, MMDOWN “ROUTINE TO SEARCH DOWNWARD FOR 10P MEM BANK 

8166 015160 000000 HALT AL ERROR!!! NO MEM INDICATED IN MEM MAP ABOVE 8k: | 
8167 015162 036767 164356 164412 33$: BIT BITPT, ADMAP ;CHECK FOR NON BOUNDRY LAST ADDR. 

8168 015170 001004 BNE F LAS F 

8169 015172 036767 164350 164404 BIT BITPT +2, LADMAP+2° = CHECK FOR 

81 013200 001402 BEQ INITE :BR IF NO LAD FLG FOUND. 

8171 015 016702 164366 34$: MOV USTADR. R2 “SET UP R 

817 015206 010467 164342 INITEX: MOV R4, MMORE :PUT RETURN PC INTO ‘MORE’ 

8173 015212 000204 RTS R4 RETURN 


2 REAR RRA EERE EEE AEEEAEEEREREEARERERERRERREERRRERERR REED 
>* COMMON UPWARDS ADDRESSING ROUTINE 
;* FINDS NEXT EXISTING 4K BANK AND UPDATES POINTERS. 
:* GOES TO ADDRESS IN ‘MMORE'’ IF MORE BANKS, 
- 











DOES STRAIGHT EXIT WHEN ALL MEMORY HAS BEEN DONE. 


MOABBAASAAALALALALALARALARLALAASLEALAAL ES AAR ALARA ASA RR RARER RAR AAAS SS | 


164330 164360 MMUP: BIT TMPPT, LADMAP s CHECK FOR LAST BANK FLAG. 






























1 LAST BANK 
164322 164352 oe TMPPT +2, LADMAP+2 ta LAST BANK FLAG. 
164346 MOV BLKMSK, R5 “RESET RS TO BLOCK MASK. 
163342 TST MMAVA :CHECK FOR MEM MGMT AVAILABLE 
BEQ 20S s;BRANCH IF NO MEM MGMT 
040000 MOV #40000, R2 sRESET VIRTUAL ADR POINTER 
172344 18: ADD #200,  @AKIPAR2 ; UPDATE MEM MGMT, THIRD PAR. 
164260 ASL BITPT ; UPDATE LO POINTER TO NEXT BANK. 
164256 ROL BITPT+2 | 3a. HI POINTER. 
BMI 32$ F ALL DONE. 
164246 164230 aS BITPT, TSTMAP ; CHECK og Ry EXISTS 
164240 164222 oH BITPT+2, TSTMAP+2 so i" a! MAP 
164226 164262 2$: a BITPT, LADMAP TF 
164220 164254 BIT BITPT+2, LADMAP+2° ;CHECK IF LAST BANK FLAG. 
BEQ 4$ ;BR IF NOT LAST BANK. 
164242 3$: MOV sRESET 
164232 BIC :MAKE SURE VIRTUAL LAST ADR IN BANK 2 
01 164174 164176 4$: MOV :COPY BITPT...LO 64K. 
este 164170 164172 MOV 2 ;...HI 64K. 
01 020000 BIT #B1T15, R5 ;CHECK FOR A BLOCK SIZE OF 8k. 
8206 01 BEQ 31$ “BRANCH I 
8207 01 172344 172346 MOV QWKIPAR2,aWKIPARS ;COPY CURRENT PAR INTO FORTH PAR. 
8208 000200 172346 5$: ADD #200,  @#KIPAR3 ;UP DATE FORTH 
8209 01 164142 ASL TMPPT ; UPDATE LO POINTER TO NEXT 4K BANK. 
B59 015406 006167 164140 ROL TMPPT +2 ;..-H] POINTER. 
11 015412 100513 BMI ;BR IF NO MORE. 
ast¢ 015414 036767 164130 164106 68: BIT TMPPT, TSTMAP ;CHECK IF BANK TO BE TESTED. 
8215 015422 001004 BNE 7$ :BRANCH IF A MA 
8214 AE ose! 036767 164122 164100 BIT TMPPT +2, TSTMAP+2. Np A FOR HI 64K BANKS. 
8215 0154 001760 BEQ 5$ H IF NO MEMORY 
8216 015434 036767 164110 164140 /7$: BIT TMPPT ,LADMAP > CHECK FOR ~ BANK FLAG. 
8217 015442 001004 BNE “BRANCH IF A MATCH 
8218 015444 056767 164102 164132 BIT TMPPT +2, LADMAP +2 he HI 64K 
8219 015452 001475 BEQ F NO LAST BANK FLAG. 
8220 015454 016705 164120 8$: MOV LADMSK, R5 “RESET MASK TO FIND LAST ADDRESS. 
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12-MAR-80 MEMORY MANAGEMENT AND ADDRESSING SUBROUTINE 
052767 020000 164110 BIS | #20000, TMPLAD ;SET VIRTUAL ADR TO BANK 3. 
000467 BR 31$ 
026702 164102 10$: CMP TMPLAD, R2 :CHECK IF LAST ADR REACHED. 
001064 BNE 31$ “BR IF MORE. 
0004 74 BR 32$ “BR IF ALL DONE. 
164053 20$: ASRB —~FLAG8K SHIFT 8K FLAG 
BEQ 228 “BR IF NOT 8K BLOCK. 
BCS 30$ ‘BR IF ANOTHER 4K. 
164043 CLRB —« FLAG8K “CLEAR OUT ALL FLAGS. 
040000 SuB i iti R2 BACK UP 8K. 
020000 21$: D #20000: R2 “UPDATE PHYSICAL ADR PNTR TO NEXT BANK. 
164014 22$:  ASLB  BITPT [UPDATE POINTER. 
BMI 32$ BRANCH WHEN END IS REACHED. 
164006 163770 BIT  ITPT. TSTMAP CHECK IF THIS BANK EXISTS. 
BEQ ss 2:18 F NO MA 
036767 163776 164032 BIT  BITPT, 
0014 BEQ 23$ : TCH. 
016705 164022 MOV K, R5 “RESET MASK TO FIND LAST ADR. 
016767 163762 163764 23$: MOV  BITPT, TMPPT :SET UP TMP POINTER. 
032705 020000 BIT #81713, R5 :CHECK FOR 8K BLOCK SIZE. 
001426 BEQ 31$ “BRANCH IF SMALLER BLOCK SIZE. 
106367 163752 ASLB —s« TMPPT “POINT TO NEXT BANK. 
100421 BMI 30S “BRANCH IF OVERFLOW. 
036767 163744 163722 BIT TMPPT, TSTMAP :CHECK IF BANK TO BE TESTED. 
001415 BEO 30$ “BRANCH IF NOT TO BE TESTED. 
036767 163730 163764 BIT  BITPT, L ;CHECK FOR LAST BANK FLAG. 
112767 000011 163733 MO v11, 
036767 163714 163750 BIT —‘BITPT, 
001403 BEO 30$ NO FLAG. 
016705 163740 MOV LADMSK, RS “RESET MASK TOF IND LAST ADR. 
012705 017777 30S: MOY AMASK4K RS ;SET MASK TO 4K. 
767 163672 163674 31$: BIS | BITPT, TMPPT :SET TMPPT FOR FINDING LAST ADR. 
767 163666 163670 BIS «BI TPT 32, IMPPT#2 
016716 163666 Mov MORE, (SP) : FUDGE RETURN ADDRESS TO LOOP. 
;*. BEFORE FINAL EXIT, CHECK FOR’ ANY NON-TRAP PARITY ERRORS. 
005767 164402 528: TST MPRX : CHECK FOR ANY PARITY REGISTERS PRESENT. 
001402 BEO 33$ BR IF NONE. 
004767 001744 JSR —s PL, CKPMER CHECK FOR PARITY MEMORY ERRORS. 
00020 338: RTS PC “STRAIGHT RETURN. 
(NW Maa | 
:* MEMORY DOWNWARDS ADDRESSING SUBROUTINE . 
:* FINDS NEXT LOWER 4K BANK AND UPDATES POINTERS. 
=* GOES TO ADDRESS I "IF MORE BANKS, 
:* DOES STRAIGHT EXIT WHEN ALL MEMORY HAS BEEN DONE. 
pa “RAEERAEKCAAAAARAEAAAEAAEERAETAERARARARARARARAAARAREARAAREREARAARARERERARREE EE 
036767 163634 163656 MADOWN: BIT — BITPT, FADMAP :CHECK FOR FIRST ADR FLAG. 
001004 BNE “BR IF FIRST ADR IN THIS BANK. 
036767 163626 163650 BIT  BITPT+2, FADMAP+2° :CHECK FOR FIRST ADR FLAG. 
001404 BEQ é F NO FLAG 
026702 163634 1$ CMP TMPFAD, R2 “CHECK IF FIRST ADDRESS REACHED. 
001052 BNE 9$ “BR IF MORE. 
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10$ ;BR_IF ALL DONE. 

_ ; CHECK *, Ore IS AVAILABLE 
#200, @#KIPAR2 LOWER MEM MGMT PAR BY 

BITPT+2 ;MOV POINTER TO NEXT LOWER BANK. . 
BITPT 0 ° 

10$ ‘BR’ IF NO MORE. 

BITPT, TSTMAP ;CHECK FOR BANK EXISTING 

$ BANK TO BE TESTED. 


4 BR IF 
. »TSTMAPS2 poeix FOR BANK IN HI MAP. 














#60000, R2 "SET ADR POINTER TO TOP OF BANK 

O COMMON EXIT 
#20000, Re “BACK POINTER DOWN ONE BANK 
BITPT :MOVE POINTER TO NEXT LOWER BANK 
10$ :BRANCH TO EXIT IF NO MORE MEM 
BITPT, TSTMAP er IF BANK EXISTS 

H IF BANK DOESN'T EXIST 

BITPT, FADMAP 


® CHECK . FIRST BANK FLAG. 
8 7BR IF FIRST BANK. 
BITPT+2, FADMAPS2 pcre ex IF FIRST BANK FLAG. 
9$ F NO FLAG F 








FADMSK, R5 T UP R5 TO FIND FIRST ADDRESS. 
MMORE, (SP) “RESET RETURN ADDRESS 
PC ; RE TURN 


H] MAP. 


SEQ 0084 


7 
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.SBTTL SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS. 

2 s RERAAAARARAAAAAAAAAAAAAAAAARARAARARAAARAAAAKRAAKARARARAAARATAAAAES 

:* SUBROUTINE TO CALCULATE PHYSICAL ADDRESS AND PUT IT IN RO (BOTTOM 16 BITS). 
:* BITS 16 AND 17 ARE IN $TMPO. 


* * RRA AEARAEARAARAAAEAAAAAEKARAARAEARAARAAARARAAAEARAAREERHRERERAEEEEEE 








PHYADR: MOV R2, RO ;VITRUAL INTO RO 
CLR $TMPO “CLEAR TEMP SAVE OF HIGH BITS 
TST MMAVA :CHECK FOR MEM MGMT AVAILABLE 
BEQ 1$ “BRANCH IF NO MEM MGMT 
MOV R1,-(SP) : 2PUSH R1_ON. STACK 
MOV QYKIPAR2, R1  :GET PAR TO BE ADDED TO VIRTUAL 
161 ASL R1 ‘SHIFT IT 6 TIMES 
161 ASL R1 
161 ASL R1 
1 ASL R1 
116 00630 ASL R1 
8319 016120 006167 163034 ROL $TMPO :SAVE EXTRA BITS 
8320 016124 006301 ASL R1 
8321 016126 006167 163026 ROL $TMPO 
8322 016132 060100 ADD R1, RO ;ADD_ SHIFTED PAR TO VIRTUAL 
8323 016134 012601 MOV (SP)+,R1 :POP STACK INTO R1 
8304 016156 000207 1$: RTS PC RETURN 
8326 ST RARER KEEEKEKEEERAREREEEEEREREAAAEKEEERARAERRARAEEEKEREREEEREEEREE 
8327 = SUBROUTINE TO PUT BANK NUMBER INTO RO. 
8328 SS RERREEKEKEKEEAEEKEEKKEAAAEREAEREKEKERRAREEARAKEEERAEREAEEREREKEERRERERKS 
8329 016140 005000 BANKNO: CLR RO INIT RO 
8330 016142 010146 MOV R1,-(SP) ;;PUSH R1 ON STACK 
(2) 016144 010246 MOV R2,-(SP) PUSH R2 ON STACK 
8331 016146 016701 163372 MOV = BITPT, RI ;GET BANK MAP POINTER. ..LO 64K. 
8332 016152 016702 163370 MOV  BITPT+2,R2 HI 64K. 
8333 016156 006202 1$: ASR R2 ; SHIFT POINTER. . HI 
8334 016160 006001 ROR R1 :...LO 
8335 016162 103403 BCS 2$ ‘BR WHEN POINTER FOUND. 
8336 016164 105200 INCB = RO = COUNT BANKS. 
8337 016166 100373 BPL 1$ “BR IF NOT OVERFLOW. 
8338 016170 000000 HALT ;FATAL ERROR!!! NO POINTER FOUND. 
8339 016172 2$: 
(2) 016172 012602 MOV (SP) +,R2 ;;POP STACK INTO R2 
(2) 016174 012601 MOV (SP)+-R1 POP STACK INTO R1 
8340 016176 000207 RTS PC "RETURN 
8342 5 FARA AEEEEREREREEEEEEEKAEEAEAEEARERRREEERAREAERERAERREERERES 
8343 “* SUBROUTINE TO WRITE THE CONSTANT IN RO INTO ALL OF MEMORY. 
8344 5 TAREE EEREEREEEREEERERERAEARRERAERAKEKAAERARRERARARREARERREREEE 
8345 016200 SETCON: 
(1) 016200 004467 176232 JSR R4, INITMM ;INITIALIZE THE MEMORY ADDRESS POINTERS. 
6 016204 010022 2$: MOV RO. (R2)+ :MOV CONSTANT INTO MEMORY 
8347 016206 030502 BIT R5. R2 “CHECK FOR END OF A BLOCK. 
(1) 016210 001375 BNE 2$ “BRANCH IF MORE IN CURRENT BLOCK. 
(1) 016212 004767 176776 JSR PC, MMUP  : FIND NEXT BLOCK AND LOOP TO 1$. 
8348 016216 000207 RTS PC “RE TURN 
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** SRE EAAEAAAEAEARAEAAEAAEAEAEAAARAARARAAARAAARRARARARRAREARKRAEEEAR EES 


;* ROUTINE TO ROTATE ‘C* BIT THROUGH A MEMORY LOCATION. 


** REA AEAEKRAARAEAARAAEAETAEAAARAEAREARARAARARARARARERARAREKRREHREH EEE 


ROTATE: ROLB 
ROLB 


RTS 


(R2) 3 (R2)=17777 

(R2) 7 (R2)=17777 

(R2) ;(R2)=17777 

(R2) ; (R2)=177767 OR 

(R2) 3 (R2)=177757 

(R2) ; (R2)=177737 

(R2) ; (R2)=177677 OR 000100 
(R2) + (R2)=177777 OR 

(R2)+ 3 (R2)=177577 

(Re) > (R2)=177377 

(R2) : (R2)=176777 

(R2) ;(R2)=175777 OR 

(Re) : (R2)=173777 

(R2) ; (R2)=167777 OR 010000 
(R2) > (R2)=157777 

(Re) s (R2)=137777 OR 040000 
(R2) ;(R2)=077777 OR 100000 
(R2)+ :(R2)=177777 OR 000000 
PC ; RETURN 





SRAAKEKAAEEKEREKEAAAKAEARAEEEKAEKEEAAAEREAEREEEREAAAERRERAERRERREREEE 


: SUBROUTINE TO WRITE 3 XOR 9 PATTERN INTO 256. WORD SLOCK. 


MAARAASAASAALRASASALARAAARAARARARALASAALASARARARARA SARA RRR ARAL ADS SS: 


uSx9: MOV 
2s: MOV 


#16. ,R4 


RO, (R2)+ 
RO, (R2)+ 
RO, (R2)+ 
RO, (R2)+ 


R3,(R2)+ 
R3,(R2)+ 
R3,(R2)+ 
R3,(R2)+ 
RO, (R2)+ 
RO, (R2)+ 
RO, (R2)+ 
RO, (R2)+ 


R3,(R2)+ 


R3,(R2)+ 
R4 


2$ 

RO, -(SP)  ;SAVE RO 
R53, RO *PUT R3 IN 
(SP)+, R3 

PC 


;EACH LOOP WRITES 256. 


RO 
:PUT SAVED "RO INTO R53 
>RE TURN 


SEQ 0086 
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13:07 RELOCATION SUBROUTINES. 
_SBTTL RELOCATION SUBROUTINES. 
SS RAAAAAARAAAAAAAAAAAAAAAAAAAARAAAKAAAAAEAAARARAAAAAAAAAAAAREAEREED 
>* ROUTINE TO RELOCATE PROGRAM CODE 
fF AAA AARAAAAAAAARARAAAEEEAAREAAAEAAAEAAKARARARAAAAAAARARRARARHER THES 
RELOC: 
MOV R2,-(SP) ::PUSH R2 ON STACK 
MOV R3_-(SP) ; PUSH R3 ON STACK 
MOV R4.-(SP) SH R4 ON STACK 
4$: MOV (R5)+, R “GET FIRST LOCATION. 
MOV (R5)+, R3 :GET FIRST LOCATION OF DESTINATION. 
020000 MOV #20000, R4 T UP 8k COUNTER. 
1$: MOV (R2)+, (R3)+ "MOV THE DATA 
DEC R4 : T THE WORDS 
BNE 1$ “BR IF MORE. 
020000 MOV #20000, R “RESET THE COUNTER. 
2$: CMP -(R2), -(R3)  =CHECK THE DATA JUST MOVED. 
BEQ 4 “BR IF DATA OK. 
62516 MOV (R2),  $GDDAT :GET SOURCE DATA. 
162514 MOV (R3),  $BDDAT :GET DESTINATION DATA. 
162502 MOV R2, $GDADR :GET SOURCE ADDRESS. 
162500 MOV R3, SBDADR :GET DESTINATION ADDRESS. 
003222 JSR PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
-WORD 23 “ERROR TYPE CODE. 
HAL T :FATAL ERROR!!! RELOCATION FAILED. 
000004 SUB #6, S :ADJUST RETURN POINTER. 
BR 4$ *GO BACK AND TRY AGAIN. 
3$: DEC R4 =COUNT WORDS. 
BNE 2$ “BR IF MORE. 
005052 JSR 3 SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE . 
.WORD  PRELOC 
LOCATE 
MOV 3, -(SP) “PUT THE DATA ON THE STACK 
006502 JSR PC, STYPAD :=DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 
MOV (SP)+,R4 -:POP STACK INTO R4 
MOV (SP)+,R3 33 STACK INTO R3 
MOV (SP)+,R2 -:POP STACK INTO R2 
RTS = RETURN 
5 .  RERRARERREREREARERERERERERERRERRERREREEAEEARERERERERERRRREREE 
** SUBROUTINE TO MOVE PROGRAM FROM BOTTOM TO TOP OF MEMORY. 
5 REE RAREKAREREEEREREREEEEKRARRAERERERRAEREREAAERARERAREERRKEREERE 
000003 162104 RELTOP: cP #3, PRGMAP : CHECK K THAT THE PROGRAM IS NOW IN BANKS 0 AND 1. 
- HALT : FATAL ERROR! | PROG SHOULD BE IN BANKS 0 AND 1 
MOV RO,-(SP) ::PUSH RO ON STACK 
MOV R1.-(SP) *=PUSH R1 ON STACK 
162074 Ist MMAVA 
007600 172346 MOV #7600, @#KIPAR3 :SET PAR TO TOP OF MEM 
CLR RO : INIT BANK POINTER...LO 64K 
100000 MOV T15, R1 -...Hl 64K. 
000200 172346 2S: SUB #300, SAK IPARS “BACK DOWN ONE BANK. 
ROR R1 :MOVE POINTER...HI 64K. 
ROR RO § woke 64K. 
BCS 90$ 
162756 BIT R1, MEMMAP+2 :CHECK FOR BANK EXISTS. 
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3$: 


4$: 


5$: 


6$: 


ADD P PC 
PROGRAM NOW EXICUTING OUT OF TOP OF 
ADD 1 SP 


MOV 
ADD 





RO, 


R1. 
RI 


~(8P) 
#200, 


Rm. 
12-MAR-80 


MEMMAP 


SAK IPARS. aNKIPARD = COPY PAR 
; ;PUSH RO ON STACK 
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;BR_ IF AVAILABLE 
;CHECK FOR BANK EXISTS. 
BANK FOUND. 


0000 

QFKIPAR2, aKKIPARO sRELOCATE LO 

@YKIPAR3,@#KIPAR] :RELOCATE HI BANK. 

PROGRAM SHOULD NOW BE EXICUTING OUT OF LAST TWO BANKS OF MEMORY. 
R PRGMAP+ 2 *RESET PROGRAM MAP. 














;PUSH R1 ON STACK 
@AKIPAR2 ;BACK DOWN WITH LOW PAR. 
: mth. POINTER. 
;BR IF OVERFLOW. 
ME 3 a CHECK IF BANK EXISTS...HI 64K. 
IF BANK EXISTS. 
MEMMAP ; CHECK IF BANK EXISTS...LO 64K. 
F SN'T EXIST. 
R1 GET SECOND BANK POINTER. 
RO LO 64K. 
PRGMAP Check FOR CONFLICT. 
T IF DESTINATION OVERLAYS SOURCE. 
RELOC “GO RELOCATE PROGRAM 


; :SOURCE FIRST 


T ADDRESS. 
DESTINATION FIRST ADDRESS. 
BANK 








TO COMMON EXIT. 


oat BANK POINTER TO TOP OF MEM. 


:SET ADDRESS POINTER TO TOP. 

“BACK DOWN ONE BANK. 

ig B POINTER DOWN ONE BANK. 
F OVERFLOW. 

:CHECK IF THIS BANK EXISTS. 

:BR IF NON-EX pod BANK 


“BACK DOWN TO NEXT ‘ 
MOV POINTER DOWN ONE BANK. 


IF OVERFLOW. 
;CHECK IF THIS BANK EXISTS. 
BR TO START OVER IF NO LOWER BANK. 
























-(SP)  ;:SAVE THE POINTER. 
“RESET POINTER TO HI BANK. 

RO “SET BIT FOR LO BANK. 

PRGMAP :CHECK FOR A PROGRAM CONFLICT. 
*BR IF NO CONFLICT. 

-FATAL ERROR!!! NOT ENOUGH MEMORY?? 

13$ -SET DATA FOR RELOCATION SUBROUTINE. 

RELOC ATE THE PROGRAM TO TOP OF MEM. 


RELOCF 


RELOCF 






:GO RELOCA 
: SOURCE STARTING ADDRE 
; DESTINATION STARTING ADDRESS. 

;SET RELOCATION FACTOR IN UNRELOCATED CODE. 
: JUMP TO RELOCATED PROGRAM 


Y. 
ADJUST THE STACK rete TO TOP OF MEMORY. 
;SET THE RELOCATION FACTOR. 








Q#ERRVEC ;ADJUST ERROR VECTOR 


SEQ 0088 | 
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8502 017002 060137 000024 ADD R1, Ate HS ;ADJUST POWER FAIL ecto 
8503 017006 060137 000114 ; ADD R1, ae ye ZADJUS! PARITY ERROR VECTOR 
8504 pce 122 177570 CMP SWR, rate : CHECK FOR HARDWARE 
8505 BEQ 14$ : 
112 ADD R1, SwWR ; ADJUST 
110 ADD R1, DISPLAY ;ADJUST SOFT 
o¢¢ 14$: ADD #RADTAB,R1 ;P0 RELA ION’ T E. 
5 15$: ADD RELOCF, (R1)+ ;ADD RELOCATION FACTOR TO ADDRESSES IN TABLE. 
16$: Gi a ; CHECK FOR 0) NOT MODIF ge = pe 
177777 CMP -(R1), #1 : CHECK FOR END 
BNE 15$ “BR 
161522 30$: MOV RO, PRGMAP ;SET NEW 
MOV (SP)+,R1 : POP STACK I 
MOV (SP)+,RO : K IN 
161510 ADD RELOCF, (SP) - ADJUST RETURN ADDRESS. 
RTS PC RETURN 
2 < EERE AAAEREAARARAAAARAATERAAKAEAAAAAEAAAARAREAAARAAAAARAAERERREEEE 
:* SUBROUTINE TO RELOCATE PROGRAM BACK TO BANKS 0 AND 1. 
22 "RREEREAKAEKAAAAEAEREAAAEAAAEEAAEAAAAEAAARAKREARARAAAAARAAAARAEARAAEEASE 
000003 161502 RELO: BIT #3. PRGMAP ; CHECK FOR PROGRAM ALREADY IN BANKS O OR 1. 
BEQ 1 IF NO CONFLICT. 
HAL T 3 FATAL ERROR! ! ! PROGRAM ALREADY IN BANKS 0 OR I!!!! 
017104 005767 161476 1$: TST MMAVA Pe FOR MEM MGMT. 
017110 001417 BEQ 3 a, MEMMGMT . 
017112 005037 172344 CLR @FK IPAR2Z ;SET PAR 2 TO BANK O. 
017116 012737 000200 172346 MOV #200, @WKIPARS- 3 SET PPAR 3 TO BANK 1. 
017124 004567 177216 JSR 3e F MOVE 8K INTO BANKS 0 AND 1. 
017130 -WORD 0 * SOURCE STARTING ADDRESS. 
017132 040000 WORD 40000 ; DESTINATION STARTING ADDRESS. 
017134 005037 172340 aK IPARO ORE PAR 0 TO 
017140 012737 000200 172342 MOV #200, @AKIP. PAR1 sRESTORE PAR 1 TO BANK 1. 
:* PROGRAM IS NOW EXICUTING OUT OF BANKS O AND 1. 
017146 000444 BR 30$ :BR TO COMMON EXIT. 
017150 016746 161424 RELOCF, ~(SP) 7PuUT er ie FACTOR ONTO THE STACK. 
017154 011667 000004 (SP), 20% :SET DATA FOR RELOC SUBROUT 
017160 004567 177162 RS, RELOC :GO MOVE THE PROGRAM BACK TO BANKS 0 AND 1. 
017164 000000 0 : SOURCE STARTING ADDRE 
017166 000000 = DESTINATION STARTING ADDRESS. 
017170 161607 (SP), PC * JUMP TO RELOCATED PROGRAM. 
IS NOW EXICUTING OUT OF BANKS 0 AND 1. 
017172 167606 (SP), SP -RESET THE STACK POINTER. 
017174 010046 RO, -(SP) :PUSH RO 
017176 012700 001622 WRADTAB,RO SET UP POINTER TO RELATIVE ADDRESS TABLE. 
017202 166620 000002 2(SP), (RO)+  ;RESET ADDRESSES TO UNRELOCATED VALUES. 
017206 005720 (RO) + :CHECK FOR TERMINATORS. 
017210 001776 22$ 3;BR a TERMINATORS. 
017212 024027 177777 -(RO), #1 ‘ue FOR END OF TABLE !NDICATOR. 
017216 001371 21$ sBR IF MORE ADDRESSES IN TABLE. 
17220 012600 (SP)+,RO ::;POP STACK INTO RO 
017222 161637 000004 (SP), §@MERRVEC ;ADJUST ERROR VECTOR. 
0172 161637 000024 (SP), @#PWRVEC ADJ UST POWER FAIL VECTOR. 
0172 161637 000114 (SP),  @#PARVEC : ADJUST PARITY ERROR VECTOR. 
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SEQ 0090 


CMP SWR, #177570 :CHECK FOR HARDWARE SWITCH REGISTER. 
BEQ 23$ “BR IF SWITCH REGISTER. 
SUB (SP),  SWR “ADJUST SOFTWARE SWITCH REGISTER 
SUB (SP), DISPLAY :ADJUS TWARE GISTER 
3$: SUB (SP)+, (SP) :ADJUST RETURN ADDRESS. 
: CLR RELOCE “RESET RELOCATION FACTOR. 
MOV ‘ PR ;SET PROGRAM MAP TO POINT TO BANKS O AND 1. 
CLR PRGMAP +2 eece » 
RTS PC 3 ‘ 
: s REE AKKCAKAAEAAAAAAAAERAERAAAAARAARAAREARARARARARAAAAKREAERAKEEREEEAEE 
“%* THIS SUBROUTINE MOVES THE LOADER AREA BACK TO THE ‘‘TOP’’ OF MEMORY FROM 
*® WHENCE IT CAME. THE LOADER AREA IS SAVED AT THE END OF THE 8K OF 
:* CODE WHEN THE PROGRAM IS INITIALLY RUN. 
2s RARER AAKEAEAAEAAAAEKREAAAAKAAARAARAAKAAARAEAAEARARAAAEARARAEKREARERASE 
RESLDR: MOV LMAD, RO : CHECK IF THE LOADERS WERE SAVED. 
BNE 1$ LOADER AREA WAS SAVED. 
HALT = FATAL eRROR CAN'T RESTORE LOADER AREA IF IT WASN'T SAVED. 
1$ TST HE Ck MEM mom. 
BEQ 
CLR 
2$ MOV R1 
MOV R2 
3$: MOV 1) -(RO) 
DEC 2 
BNE 3$ 
CLR LMAD 
TST MMAVA 
BEQ 4% 
INC 
4$: RTS PC 
:* ROUTINE TO SAVE THE LOADERS AT THE END OF 8K. 
SAVLDR: TST LMAD ; CHECK IF LOADERS HAVE BEEN SAVED ALREADY. 
BNE 4$ H IF ALREADY SAVED 
MOV #40000, RO “GET E ND OF 8K 
MOV :GET END OF 8K 
MOV W28 @WERRVEC :SET UP TIMEOUT VECTOR 
1$: MOV (RO), (RO)+  :SEARCH FOR END OF MEMORY 
BR 1$ “KEEP CHING 
2s: CMP (SP)+, (SP)+ RESTORE STACK POINTER 
MOV HERRTRP ,a#ERRVEC :RESET TIMEOUT VEC CTOR. 
MOV -(SP)  :SAVE LAST Y ADDRESS (CONTIGUOUS) 
MOV #1300. R2 “SET UP WORD COUNTER 
3$: MOV -(RO),  -(R1) ; SAVE THE LOADERS 
DEC R2 OUNT THE WORDS 
BNE 3$ “BRANCH IF MORE WORDS 
MOV (SP)+, LMAD  :SAVE LAST MEMORY ADDRESS 
4$: RTS PC *RE TURN 
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.SBTTL PARITY MEMORY TRAP SERVICE AND SUBROUTINES. 
$ Ss REAAAAAAAARAAAAAAARERAEEAAAAARAARARARARAARAEARERARRRRAEREREERKREE 
:* PARITY MEMORY UNEXPECTED ERROR TRAP SERVICE ROUTINE. 

:* FIND QUT WHICH REGISTER DETECTED THE 
;* THEN SCAN MEMORY TO SEE IF PARITY ERROR STILL SET AND REPORT LOCATION. 


PP kn NR. Be Bhs RB 





PESRV: MOV (SP), SBDADR ;GET PC OF INSTRUCTION WHICH CAUSED ERROR. 
JSR R5, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
“WORD UNEXPT s ADDRESS OF MESSAGE TO BE TYPED 
UNEXPECTED MEMORY PARITY TRAP.’ 
MOV R1,-(SP) ; ;PUSH R1 ON STACK 
MOV R3,-(SP) R3 ON STACK 
MOV -MPRX, R =GET POINTER TO PARITY REGISTERS. 
1$: TST a(R3)+ : CHECK THE PARITY REG FOR AN ERROR FLAG. 
BM] 3$ :BR IF THIS REGISTER SHOWS THE ERROR. 
TST (R3) ;CHECK FOR TABLE TERMINATOR. 
BNE 1$ ;BR IF MORE REGISTERS. 
JSR PC, SERROR ;*** ERROR *** (GO TYPE A MESSAGE) 
:xxkERRORe«® NO REGISTER INDICATED — 
3 4 ts : YPE CODE. 
2$: TST (R3) ; CHECK FOR TABLE TERMINATOR. 
BEQ 4$ “BR F NO MORE PARITY REGISTERS. 
TST a(R3)+ :CHECK THE PARITY REG FOR AN ERROR FLAG. 
BPL 2$ “BR IF NO ERROR FLAG. 
JSR R5, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
-WORD MTOE ; ADDRESS OF MESSAGE TO BE TYPED 
33 ‘MORE THAN ONE ERROR FOUND.’ 
64$: JSR PC, SPRNTQ ;SET UP VALUES FOR ERROR PRINTING. 
JSR PC, SERROR ;*** ERROR *«** (GO TYPE A MESSAGE) 
-WORD 25 “ERROR TYPE CODE. 
JSR PC, PSCAN =GO SCAN MEMORY FOR BAD PARITY. 
“ 2$ -G0 LOOK FOR MORE ERRORS. 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP)+,R1 3zPOP STACK INTO R1 
RT] ;RETURN. 
SL AAAERERAEREREEREKREEEEEEAKEEKREEKKERERERREKKEKEEKEREEKERKEKEEKEKEEEKEEE 
on INE TO ENABLE ITY ERROR ACTION ON MA/MF PARITY MEMORIES 


PAR 
:THIS ROUTINE IS MEANT TO CATCH UNEXPECTEDS 


Re ne ne ee 


TST sCHECK IF ANY PARITY REGISTERS EXIST. 

BEQ 2 sEXIT IF NO PARITY REGISTERS. 

BIT #SW6 aSwR :CHECK FOR INHIBIT PARITY ERROR DETECTION. 

BNE MAMF 2 sEXIT IF NO PARITY ERROR DETECTION 

TST RELOCF :CHECK IF PROGRAM RELOCATED OUT OF BANK 0. 

BEQ SETAE ;BR_IF PROG IN BANK 0. 

BiT #SW5, a@SWR tg IF VECTORS PROTECTED. 

BNE SETAE F VECTOR AREA PROTECTED. 

CMP FSTADR, #1000 ® CHECK FOR STARTING ADDRESS ABOVE THE VECTORS. 

BLO MAMF 2 sEXIT IF VECTORS EXPOSED TO TESTING. 
SETAE: MOV -PESRV, 


—, ;SET PARITY ERROR TRAP VECTOR 


CLR QAPARVE C+ sPRIORITY LEVEL 0 ON TRAP 


SEQ 0091 
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161776 
000001 


162424 
000100 


161736 
000001 
000422 
001732 
000026 
000402 
001712 
000010 


161256 


177776 
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MOV 





MOV o 
MAMF1: BIS NABLE BIT IN PARITY REG 
TST END OF TABLE. 
BNE PARITY REGISTERS. 
MOV NTO R3 
MAMF2: RTS 


“REE AEAAEAAAAAAAAEEAAEAEEAAAAEAAEAAARAAAAAAAARAAAAAARAARAARAAAAEAAKEAE 


3 SUBROUTINE TO CHECK PARITY REGISTERS FOR ERRORS THAT DIDN'T TRAP. 


“REAR AAAAATAEAAAEEAAEAEEAEAAEAAAEAAARAARAAAARARAARAARAERAAKRAERAEAKRAEE 


CHGG2: 
CKPMER: TST ;CHECK IF ANY PARITY REGISTERS EXIST. 
BEQ REGIST 
























4$ “BR I 
BIT #SW6, aSwR : ERROR CHECKING. 
f 4$ “BR IF PARITY ERROR CHECKING INHIBITED. 
MOV R3,-(SP) : PUSH R3 A 5; ACK 
MOV .MPRX, R3 -GET PARITY REG TABLE POINTER. 
1$: TST a(R3)+ :CHECK THE PARITY REG FOR AN ERROR FLAG. 
BPL BS; “BR IF NO ERROR 
BIT WRITO, a@-2(R3) :CHECK IF A TRAP SHOULD HAVE OCCURRED. 
BEQ 2$ “BR IF NO ACTION ENABLE. CHGG2 
64$: JSR PC, SPRNTQ :SET UP VALUES FOR ERROR PRINTING. 
JSR PC, SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
a $9 “ERROR TYPE CODE. 
a PC, PSCAN :GO SCAN ALL MEMORY FOR PARITY ERRORS. 
65$: PC, SPRNTQ :SET UP VALUES FOR ERROR PRINTING. 
PC, SERROR : #08 ERROR sae (GO TYPE A MESSAGE) 
27 “ERROR TYPE C 
PC PSCAN :GO SCAN ALL MEMORY FOR PARITY ERRORS. 
3s: (R3) : CHECK FOR TABLE TERMINATOR. 
1$ IF MORE. 
MOV (SP)+,R3 >:POP STACK INTO R3 
4$: RTS PC ; PO st 





“RA AAEAEAAAAAAARAAAAARAAAAEEAAAAAAAEARAAARAAAEAAAAARARAEKAAAARAEREREAAKEEE 


<% THIS SUBROUTINE 
-« TYPE OUT ALL 
** 


0 
LOCATIONS IN ORDER TO RESTORE GOOD PARITY. 








WILL “oS ALL OF MEMORY LOOKING FOR BAD PARITY, 
ONS F TO BE 


AND WRITE BACK INTO THE 


*REAARAAAAEAAARAAERAAAAAAAEREAAAKAAAAAARAAAAAAAERARAARAARAEAEAERKERAEEE 


PSCAN: 





23 
s 
Ww 
~ 
z 
x 





aires | 
SERRA 


STACK 

QUT. THE FOLLOWING MESSAGE. 
SAGE TO BE TYPED 

NG MEMORY FOR BAD PARITY. 

POINTER TO FIRST BANK. 

64k POINTER. 





ee 


:" SCANN 
:SET BI 
:CLR HI 


SEQ 0092 


CZQMCGO 
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86953 
8694 








020012 
vA 
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04 
161442 
161436 


161526 


160774 


000210 
001520 


003352 


177776 
017777 


020000 
160400 


000200 
040000 


172344 


000114 


172344 


16K VER 


5$: 


64$: 


6$: 


ad aod 


12$: 
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f 
MEMMAP+2- 3; CHECK 
:BR IF 


CLR R2 
CLR RG 
JSR PC CLRPAR 
MOV #116, af114 
CLR avi16 
TST MMAVA 
BEQ 1$ 
MOV @FKIPAR2,-(SP 
CLR ak IPAR2 
MOV #40000, R2 
BIT RO, MEMMAP 
BNE 2$ 
BIT R1, 
BEQ 10$ 
MOV R1,-(SP) 
MOVB (R2),~ R1 
MOV _MPRX, R3 
TST a(R3)+ 
L 6$ 
TST R4 
5$ 
DEC SERTTL 
INC R4 
JSR PC, SPRNTQ 
JSR C, SERROR 
. WORD 
MOVB = (R2) (R2) 
LR a-(R3) 
TSTB 2) 
TST a(R3)+ 
BPL 
JSR RS, SPRINT 


CLR a-2(R3) 
ens) 


R2 
BIT AMASK4SK 
BNE 
MOV (SP)+,R1 
11$ 


ADD 1500 Q4KIPAR2 -UPDAT 


BR 
ADD came 
TST 
BEQ 
MOV #40000, 


ROL Rt 


oR2 


R2 


BPL 1$ 
MOV (SP) +,a@#K IPAR2 
20$ 


BR 
ASLB RO 
BPL 1$ 


INES. 


PAGE 59-76 


: INIT ADDRESS POINTER. 
NIT ERROR DETECTED FLAG 


:HALT IF ANOTHER PARITY TRAP. 
;CHECK FOR MEMORY MANAGEMENT. 
MEM MGMT. 


;BR IF NO 





@FKIPAR2 ON STACK 


:PUSH afk 
: INIT meh’ MGMT TO POINT TO BANK 0 
“SET ADR POINTER TO PAR2. 

; CHECK LF THIS BANK OF MEM EXISTS. 





THIS BANK EXISTS. 
HI 64K MAP. 
THIS BANK DOESN'T EXIST. 





7zPUSH R1 ON STACK 
sREAD THE LOCATION TO SEE IF IT HAS A PARITY ERROR. 


:SET UP POINTER TO “gf REGISTERS. 
:C FLAG. 


HECK FOR THE ERROR 
NO ERROR 


BR IF E FLAG. 

i IF FIRST ERROR, THIS SCAN. 
:BR IF MORE THAN ONE ERROR 
sADJUST ERROR COUNT. 

:SET FLAG TO INDICATE ERROR FOUND. 
;SET UP VALUES FOR ERROR PRINTING. 
, uae te see (GO TYPE A MESSAGE) 


;ERROR TYPE CODE. 
SREWRITE THE fg hye; TO CLEAR BAD PARITY. 
;CLEAR THE ERROR F 

:CHECK IF THE PARITY ERROR WAS CLEARED. 








F OUND . 


:CHECK FOR THE ERROR F 
IT I 


BR IF 











HI 
BR" 1F MORE 








S_OK. 
>GO PRINT OUT THE FOLLOWING MESSAGE . 
BE TYPED 


NEXT BANK. 
THAT AREN'T THERE. 








“CHECK FOR MEM MGMT. 
:BR_ IF NO MEM MGMT. 


E MEM MGMT REG TO NEXT 
;RESET ADDRESS ah TO BEGINNING OF BANK. 
;UPDAT Pa POINTER. 


T 4K. 





BANKS. 

;POP STACK INTO @#KIPARZ 
; GO CHECK’ IF ANY FOUND . 
[UPDATE POINTER TO NEXT BANK. 
:BR IF MORE BANKS. 


ERRORS 








SEQ 0093 
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CZQMCGO 0=-124k MEMORY EXERCISER, 16K VER MACY11 30A(1052) 

CZQMCG.P11 12=MAR-80 13:07 PARITY MEMORY TRAP SERVICE AND SUBROUTINES. SEQ 0094 
005704 20$: ‘TST RG :CHECK IF ANY PARITY ERRORS DETECTED. 
001003 BNE 21$ “BR IF ERRORS DETECTED. 

004567 003250 JSR RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
025716 - .WORD  NOPES “ADDRESS OF MESSAGE TO BE TYPED 
012637 000116 "MOV (SP) +,a#116 ::POP STACK INTO a#116 
912637 000114 MOV (SP)+,a#114 -:POP STACK INTO a#114 
012604 MOV (SP) +, R4 -=POP STACK INTO RG 
012603 MOV (SP)+,R3 :;POP STACK INTO R3 
012602 MOV (SP) +_R2 -:POP STACK INTO R2 
012601 MOV (SP)+.R1 -*POP STACK INTO R1 
012600 MOV (SP) +,RO -=POP STACK INTO RO 
000207 RTS PC RETURN. 
SRE KEEKEEEAERAEEEEREKEEEEKAEKERKRAREAREEKAREKEKEKAREERERKRHRRHE 
: ROUTINE TO CLEAR ALL PARITY REGISTERS PRESENT 
SEERA AEKEKEKEEEAEKEERREREEEEEEEEKEKEEERAEKEEKREREEAREERERERRERERRERREREEKE 
Ci RPAR: 
010346 MOV R3,-(SP) : PUSH R3 ON STACK 
016703 161322 MOV ] 2 “GET PARITY REGISTER TABLE POINTER. 
5713 1$: TST (R3) “CHECK FOR THE TABLE TERMINATOR. 
001402 BEQ 2$ “BR IF DONE ALL PARITY REGISTERS. 
005033 CLR a(R3)+ ; CLEAR THE PARITY REGISTER. 
77, m BR 1$ “BR FOR MORE 
012603 MOV (SP) +,R3 ::POP STACK INTO R3 
000207 RTS PC “RETURN. 
_SBTTL SUBROUTINES TO SET UP DATA FOR ERROR PRINTOUT ROUTINE. 
SF EERAEEAERERAKEEKEKEEEKKAREREREEREKREEKRARKEKEEKKHEKKEEEEKEKRREKAEKEKKEERREKK 
:* THESE ROUTINES ARE USED TO TRANSFER DATA TO COMMON TAG AREA (.$CMTAG) 
-* FOR ERROR PRINTOUT SERROR & .SERRTYP ROUTINES FROM **SYSMAC**. 
: : REAKEKCAKAKKKKAAAAAKKEEAARKEAAEAAARAEARKAAAKAKKKAAAKEKKAAAEKAKEKEARAKEAEEKE 
010267 160572 SPRNT: MOV R2, $GDADR SAVE THE ADDRESS UNDER TEST. 
005067 160572 CLR SGDDAT -SHOULD BE DATA IS '0''. 
BR SPRNTB 
014367 160620 SPRNTQ: MOV -(R3), $TMPO = :GET THE PARITY REGISTER ADDRESS. 
013367 160616 MOV a(R3)+, $TMP1  :GET THE CONTENTS OF THE PARITY REG. 
000402 BR SPRNTO 
011367 160606 SPRNTP: MOV (R3),  $TMPO = :GET THE PARITY REGISTER ADDRESS. 
010267 160542 SPRNTO: MOV R2, SGDADR :GET THE MEMORY ADDRESS BEING TESTED 
000414 BR SPRNTA TO COMMON SECTION. 
010267 160534 SPRNT1: MOV R2, $GDADR :GET THE MEMORY ADDRESS BEING TESTED 
005367 160530 DEC SGDADR “ADJUST IT FOR PRINTOUT. 
000407 BR SPRNTA “BR TO COMMON SECTION. 
10367 160562 SPRNT3: MOV R3, S$TMPO :GET THE DATA IN R3. 
010267 160516 SPRNT2: MOV R2, ADR =GET THE MEMORY ADDRESS BEING TESTED 
162767 000002 160510 SUB Ho, $GDADR -:ADJUST IT FOR PRINTOUT. 
10067 160510 PRNTA: MOV RO, $GDDAT GET WHAT THE DATA SHOULD BE 
010167 160506 SPRNTB: MOV R1, DAT :GET WHAT THE DATA WAS 
20 RTS PC “RETURN TO ENTER ERROR ROUTINES 
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SEQ 0095 


SRAAAAAAERAAAAAAAARAAAAAERARARAARAAAAARARARAAAAAAARAARAAAAAHAEAANS 


















<f SUBROUTINE TO TYPE OUT A MAP OF 4K BANK. 
:* RO POINTS TO THE MAP UPON ENTERING THIS ROUTINE. 
gf AAAAAAAAAAAAAAARAAAAAAEAAAAAAAAAARAAARAAAAAAAAAAAAAAAAEAAAAAEEES 
TYPMAP: TST ~ sCHECK IF ANY MEMORY IN MAP...LO 64K. 
BNE “BR IF MEMORY IN MAP. 
TST 2¢R0) 3..-H] 846K. 
BNE “BR IF MEMORY IN MAP. 
JSR RS. SPRINT ;GO PRINT OUT THE cL. OsINS ME SSAGE . 
.WORD NOMEM ; ADDRESS OF py ten TC BE TYPED 
:''NO MEMORY FOUND.’ 
- BR 65 sEXIT 
MOV R1,-(SP) 3; PUSH 
MOV R2, - (SP) ; ;PUSH 
MOV R3_-(SP) 3 PUSH 
MOV R4,-(SP) 3 PUSH 
MOV ITO, R1 3 
CLR 2 ; 
MOV #-1, R3 . 
MOV R3, RG : 
2s: BIT R1, (RO) : 
BNE 3$ ; 
BIT Re, 2(RO) sG 
BNE 3$ 7;BR 
TSTB R3 pts 
BNE 5$ BR 
SUB #1, R3 :BACK UP TO LAST ADR OF PREVIOUS BANK 
SBC R4 :...H] ADDRESS BITS. 
JSR RS, SPRINT ;GO PRINT OUT THE POLL Osis MESSAGE . 
-WORD TO -ADDRESS OF MESSAGE TO BE TYPED 
BR 4$ : YPE THE ADDRESS. 
3$: TSTB R3 >CHECK FOR PREVIOUS TYPEOUT. 
Q 5$ :BR IF ALREADY TYPE ‘FROM’. 
ADD AP R3 :POINT TO FIRST ADDRESS OF THIS BANK. 
ADC R :...-HI BITS OF ADDRE 
JSR RS, SPRINT PRINT OUT THE FOLLOWING MESSAGE. 
- -WORD FROM * ADDRESS OF MESSAGE TO BE TYPED 
MOV R3,-(SP) ; ;PUSH R3 ON STACK 
MOV R4,-(SP) >PUSH R4 ON STACK 
ASL RS “BIT 15 INTO C-S8IT 
ROL R4 -BIT 15 INTO R4. 
ROR R3 sRESTORE ye BE: 14=0. 
MOV R4,-(SP) ;7SAVE R R4 FOR 
YPE ADDRESS BI TS 21-15 
>* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUT INE 
-* LED FOR BY **SYSMAC®* 


WIHTOUT USING A '‘TRAP’’ INSTRUCTION AS CAL 
MO ayvP 


V SW, -(SP)  ;PUT THE PROCESSOR STATUS ON THE STACK 
JSR PL STYPOS ;GO TO THE SUBROUTINE 
~BYTE 3 : 3 TYPE 3 DIGIT(S) 
-BYTE OQ ; SUPPRESS ee ZEROS 
MOV R3,-(SP) : SAVE R 


R35 FOR TYPEOUT 
; TYPE ADDRESS BITS 14-0 


F 8 
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7* THE NEXT TWO INSTRUCTIONS PROVIDE AN esate TO THE $TYPOS ROUT INE 
;* WIHTOUT USING A ‘‘TRAP*’ ‘Sphere AS CALLED FOR BY **SYSMAC** 


013746 177776 MOV aePSw, <-(SP)  ;PUT THE PROCE SSOR STATUS ON THE STACK 
004767 004070 JSR PC, S$TYPOS :GO TO THE TINE 
005 BYTE S sz TYPE 5S DIGIT(S) 
001 "BYTE 1 >: TYPE LEADING S 
2604 MOV (SP) + RG =:POP STACK INTO R4 
012603 MOV (SP) +°R3 -:POP STACK INTO R3 
703 020000 S$: ADD #20000, R3 ;UPDATE TO NEXT BANK. 
005504 ADC R4 :...HI ADDRESS BITS. 
301 ASL R1 “SHIFT POINTER...LO 64K. 
102 ROL R2 i. oH 64K. 
103321 BCC 2$ “BR IF MORE BANKS. 
012604 MOV (SP) +,R4 ; sPOP STACK INTO R4 
012603 MOV (SP) +.R3 -POP STACK INTO R3 
012602 MOV (SP) +. R2 =:POP STACK INTO R2 
012601 MOV (SP) +_R1 =:POP STACK INTO R1 
000207 6S: RTS PC “RETURN. 





-SBTTL SCOPE HANDLER ROUTINE 


J ERAAAERAAAKERUAAAAAAAAARAAAAAAAAAAAAAAAAAEARARAEAEAAAAAAAAARAAERAAE 


 RTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

; *AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG oe INTO DISPLAY<15:08> 

is THE S SWITCH ait PROVIDED 6B Y THIS ROUTINE ARE: 








P = ON TEST 

> *SW11=1 INHIBIT ITERATIONS 

7 *SWO9=1 LOOP ON E 

; *SWO8=1 LOOP ON TEST IN SWR<4:0> 

> ®CALL 

;* SCOPE :: SCOPE=I0T 
020640 $sCc 


OPE : 
;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SCKSWR ROUT INE 
;* WIHTOUT USING A ‘‘TRAP"’ eT he CALLED FOR BY **SYSMAC** 


























020640 013746 177776 MOV aePSW, -(SP) ;:PUT THE PROCESSOR STATUS ON THE STACK 
020644 004767 001524 JSR PC SCKSWR :GO TO THE SUBROUTINE 
012504 MOV (R5)+, RG “SAVE MINIMUM BLOCK MASK NEXT TEST. 
020652 010516 MOV RS, (SP) :Pur RETURN PC ONTO STACK. SIMULATE JSR PC. 
020654 032777 040000 160256 1%: BIT #B1T14.aSWR :LOOP ON PRESENT TEST? 
020662 001117 BNE SOVER ‘YES IF SW14=1 
;HMAMASTART OF CODE FOR THE XOR iégt TERMAAAN : 
020664 000416 $XTSTR: BR 6$ -]F RUNNING ON THE XOR: TESTER CHANGE 
“THIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
020666 013746 000004 MOV @VERRVEC.-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
020672 012737 020712 000004 MOV #5$, aMERRVEC -:SET FOR TIMEOUT 
920700 005737 177060 TST ani? KOR? 
012637 000004 MOV (SP) +, @#ERRVEC ORE THE ERROR VECTOR 
020710 000466 BR SSVLAD -GO TO THE NEXT TES 
020712 022626 S$: CMP (SP) +, (SP)+ “CLEAR THE STACK AFTER A TIME OUT 
714 012637 000004 MOV (SP)+,@WERRVEC ;;:RESTORE THE ERROR VECTOR 





020 E C 
020720 000426 BR 7$ “LOOP ON THE PRESENT TEST 
020722 6$::#AHHHEND OF CODE FOR THE XOR ’ TESTERMAMAM 
020722 032777 000400 160210 BIT #31708, aSwWR ::LOOP ON SPEC. TEST? 
020730 001407 BEQ 2$ -:BR IF NO 
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160202 
000340 
160136 
160127 
160133 
001000 
160106 
160071 
160152 
004000 
160156 


1 
157754 
157752 


000470 
037777 
160034 
157716 
160412 
160362 
157372 
000040 
160340 
001000 
000001 
160324 
002242 


160356 


160117 
160144 
160102 


160112 


160034 


160024 
160102 


160110 


157773 
160012 
1604 34 
000021 
160362 


157722 
001000 


160326 
160324 
001000 


VER 
SCOPE HANDLER ROUT] 


2$: 


7$: 
4S: 


3$: 


1$: 


SSVLAD: 
MO 


SOVER: 


aC) 
INSERT: 
BE 


1$: 


2$: 
3$: 
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aSwR,-(SP) 
#SSWRMK, (SP) 
(SP)+,$TSTNM 
SOVER 

SERFLG 
SERMAX , SERFLG 
#B1TO9,aSwR 


SLPERR,$LPADR 
SOVER 


1$ 

| ,@SWR 
SPASS 

1$ 


SICNT 

STIMES ,SICNT 

SOVER 

#1 ,SICNT 

SMXCNT ,STIMES 

STSTNM 

STSTNM,STESTN 
) , SLPADR 





RMAX 
$TSTNM.a@D1ISPLAY 
_ “Fao 


BLKMSK 





#2) 
BLKMSK 
FSTADR, TMPFAD 


: aSWR 
thea #1000 
TMPF AD 
ADMAP 
LSTADR, #1000 
SPRINT 





Pena 
— 
© 
* 
nn 


(SP) 


gy TEST NUM. FROM SwR 


77BR I 
::;SET LOOP ADDRESS TO LAST SCOPE 


;;ZERO THE ERROR FLAG 

;sCLEAR THE NUMBER OF ITERATIONS TO MAKE 
; ;ESCAPE TO THE NEXT TEST 

aa a —_— 


;BR 
TIF FIRST PASS OF PROGRAM 
ITERATIONS 


INHIBIT 
: INCREMENT ITERATION COUNT 
a THE NUMBER OF ITERATIONS MADE 
;BR IF MORE ITERATION REQUIRED 
; SREINITIALIZE THE ITERATION COUNTER 
> SET NUMBER OF ITERATIONS TO DO 
:: COUNT TEST NUMBERS 
- SET TEST NUMBER IN APT MAILBOX 
;sSAVE SCOPE LOOP ADDRESS 
>; SAVE ERROR LOOP ADDRESS 
; 3 CLEAR THE ESCAPE FROM ERROR ADDRESS 
;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
; ;DISPLAY TEST NUMBER 
UDGE RETURN ADDRESS 
:CHECK FOR LOOP ON TEST. 
:BR IF START NEXT TEST. 
‘SET IF LOOP ON LAST TEST. 
BOUNDRY _ 




















: T ADDRESS. 

;SET FLAG IN FIRST BANK. 
:CHECK IF GONE PAST LAST ADR. 
; MEMOR 


PED 





“ADJUST RETURN ADR FOR ABORT. 


SEQ 0097 
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G 12=MAR-80 13:07 SCOPE HANDLER ROUTINE SEQ 0098 
(3) 021 RTS PC : ABORT. 
(3) 021270 016767 160300 160300 43: MOV LSTADR, TMPLAD :GET LAST ADDRESS. | 
(3) 021276 016767 160232 160224 MOV SAVTST, TSTMAP  ;GET TEST MAP, LO 64K. | 
(3) 021 016767 160226 160220 MOV SAVTST#2, TSTMAP+ HI 64K. 
(3) 021312 767 157264 160210 BIC PRGMAP. TSTMAP -DON*T TEST OVER THE PROGRAM. 
(3) 021320 046767 157260 160204 BIC PRGMAP+2, TSTMAP+2 
(3) 0 1326 005767 157660 TST $PASS =CHECK FOR FIRST PASS 
(3) 021332 001011 BNE 10$ “BR IF NOT FIRST PASS. 
(3) 021334 032767 000003 160166 BIT ae TSTMAP “:CHECK IF FIRST TWO BANKS AVAILABLE. 
(3) 021342 001405 BEQ 10$ “NOT TESTING FIRST 2 BANKS. 
(3) 021 042767 177774 160156 BIC #177774, TSTMAP =CLR ALL BUT FIRST 2 BANKS. 
(3) 021352 005067 160154 CLR TSTMAP+2 
(3) 021356 005704 10$: TST R4 :CHECK FOR A MINIMUM BLOCK SIZE. 
(3) 021360 001503 BEQ 20$ “BR IF NO MIN BLOCK SIZE. 
(3) 021362 030467 160176 BIT R4, TMPFAD :CHECK IF FIRST OCK BOUNDRY 
(3) 021366 001416 BEQ 11$ “BR IF FIRST ADR ON BLOC Y. 
(3) 05 160170 BIS R4, TMPFAD :ADJUST FIRST ADR TO END OF BLOCK. 
(3) 021374 005267 160164 INC TMPF AD “FIRST ADR TO FIRST ADR OF NEXT BLOCK. 
(3) 021400 032767 017777 160156 BIT WMASK4K,TMPFAD =CHECK IF FIRST ADR REACHED 4K BOUNDRY. 
(3) 021406 001006 BNE 11$ ;BR IF NOT ON 4K BOUNDRY. 
(3) 021410 046767 160154 160112 BIC FADMAP, TSTMAP :DON'T TEST FIRST BANK. 
(3) 021616 046767 160150 160106 BIC FADMAP+2, TSTMAP+2 
(3) 021424 030467 160146 11$: BIT R4 TMPLAD ;:CHECK IF LAST ADR ON BLOCK BOUNDRY. 
(3) 021430 001414 BEQ 12$ “BR IF ON BLOCK BOUNDRY. 
(3) 021432 040467 160140 BIC R4, TMPLAD :ADJUST LAST ADR DOWN TO NEXT BLOCK BOUNDRY. 
(3) 021436 032767 017777 160132 BIT WMASKGK,TMPLAD :CHECK IF ADJUSTED TO 4K BOUNDRY. 
(3) 021444 001006 BNE 12$ “BR IF NOT ON 4K BOUNDRY. 
(3) 021446 046767 160130 160054 BIC LADMAP, TSTMAP :SKIP TESTING LAST BANK. 
(3) 021454 046767 160124 160050 BIC LADMAP+2, TSTMAP+2 
(3) 021462 036767 160102 160112 12$: BIT FADMAP, LADMAP :CHECK IF FIRST AND LAST IN SAME BANK. 
(3) 021470 001004 BNE 13$ “BR IF IN SAME BANK. 
(3) 021472 036767 160074 160104 BIT FADMAP+2 , LADMAP+2 j +; ,UPPER K. 
(3) 021500 001404 BEQ 14$ “BR IF FIRST AND LAST NOT SAME BANK. 
(3) 021502 026767 160070 160054 13%: CMP TMPLAD, TMPFAD 
(3) 021510 101406 BLOS  15$ EST. 
(3) 021512 005767 160012 14$: TST TSTMAP “CHECK IF ANY BANKS LEFT TO TEST!! 
(3) 021516 001017 BNE 16$ “BR IF TEST MAP NOT EMP 
(3) 021520 005767 160006 TST TSTMAP+2 *CHECK FOR ANY BANKS. 
(3) 021524 001014 ‘ai BNE 16$ “BR IF TEST MAP NOT EMPTY. 
(5) 021526 004567 001770 JSR RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
(5) 021532 026773 .WORD  SKPMES ADDRESS OF MESSAGE TO BE TYPED 
(4) :" ‘SKIPPING TEST # 
(4) 021534 005046 CLR ~(SP) “CLEAR THE WORD ON THE STACK. 
(4) 021536 116716 157340 MOVB $TSTNM, (SP) | :PUT THE DATA ON THE STACK 
(6) -* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE 
(6) -* WIHTOUT USING A ''TRAP’’ INSTRUCTION AS CALLED FOR BY **SYSMAC*®. 
(6) 021542 013746 177776 MOV avPSw, -(SP)  ;:PUT THE PROCESSOR STATUS ON THE STACK 
(6) 021546 004767 003122 JSR PC, S$TYPOS :GO TO THE SUBROUTINE 
(4) 021552 003 -BYTE 3 “TYPE 3 DIGITS 
(4) 021553 001 “BYTE 7 “TYPE LE ERO 
(3) 021554 00042 BR E ETURN TO SKIP TEST. 
(3) 021556 062716 000004 16$: ADD #6, (SP) | :SKIP THE SKIP ON RETURN. 
(3) 021562 062767 000004 157316 ADD #6. $LPADR :ADJUST THE LOOP ADR PAST THE SKiP. 
(3) 021570 012767 017777 157770 20$: MOV WMASKGK.FADMSK :GET 4K MASK. 
(3) 021576 016705 157762 MOV TMPFAD, R5 “GET FIRST ADR. 
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(3) 021602 040567 157760 21$: BIC RS, FADMSK ;CLR MASK ABOVE LOWEST BIT OF FIRST ADR. 
(3) 021606 006305 ASL R5 “MOVE LOWEST BIT UP ONE. 

(3) 021610 001374 BNE 21$ ; LOOP UNTIL ew lee. 

(3) Sees 012767 017777 157760 MOV AMASK4K ,LADMSK BI y 

(3) 1 016705 157752 MOV TMPLAD, R5 

(3) 021624 040567 157750 223: BIC RS, L ADMSK ITS ABOVE LOWEST BIT IN LAST ADR. 
(3) 021 006305 ASL R5 T OF LAST ADR UP ONE. 
(3) 021632 001374 BNE 22$ RF LOW. 

(3) 021634 000207 ENDINS: RTS PC ° NE BACK TO TEST. 

(1) 021636 000004 SMXCNT: 4 > . we ‘A ITERATIONS 
8920 :* THE NEXT TWO INSTRUCTIONS PRO E TO THE $CKSWR ROUTINE 
(2) > WIHTOUT USING A ‘‘TRAP’’ INST . FOR BY **SYSMAC**. 

(2) 021640 013746 177776 MOV ayPSW, -(SP) . SSOR STATUS ON THE STACK 
(2) 021644 004767 000524 JSR PC, SCKSWR SUBROUT INE 
on . SBTTL ERROR HANDLER ROUT INE 

(2) “£RERAEKEAREAKREAEKARAEARAEARAAAEAARARARAARARARARAREARARARAARAARARREREEREREEAREASE 

(1) THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

(1) ; *SAVE -" ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

(1) :*AND GO TO SERRTYP ON ERROR 

(1) > * THE SUITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(1) + *SW W15=1 HALT ON 

(1) : «SW 35=1 INHIBIT ERROR TYPEOUTS 

(1) = *SW10=1 BELL ON ERROR 

(1) : *SWO9=1 LOOP ON ERROR 

(1) 3 *CALL 

Nhe :* ERROR N : :ERROR=EMT AND N=ERROR ITEM NUMBER 

(1) 021650 SERROR: 

(3) ;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE 
(3) :* WIHTOUT USING A ‘‘TRAP’’ INSTRUCT ION AS CALLED FOR BY **SYSMAC®*«. 

(3) 021650 013746 177776 MOV aePSW, -(SP) :PUT THE PROCESSOR STATUS ON THE STACK 
(3) 021654 004767 000514 JSR PC, SCKSWR ;GO TO THE SUBROUTINE 

(2) 021660 062716 000002 ADD #2, (SP) :ADJUST POINTER PAST CODE WORD. 

(1) 021664 105267 157213 7$: INCB SERFLG :3SET THE ERROR FLAG 

(1) 021670 001775 BEQ 7$ sDON'T LET THE FLAG GO TO ZERO 

(1) 021672 016777 157204 157242 MOV STSTNM,@DISPLAY > = DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 021700 032777 002000 157232 BIT #81710, aSWR ; sBELL ON ERROR? 

(1) 021706 001403 BEQ 1$ 3;z;N0 - IP 

(2) 021710 004567 001606 JSR RS, SPRINT G0 PRINT OUT THE oe MESSAGE . 
(2) 021714 001174 -WORD S$BELL “ADDRESS OF MESSAGE TO BE TYPED 

(1) 021716 005267 157170 1$: INC SERTTL :: COUNT THE NUMBER OF ERRORS 

(1) 021722 011667 157170 MOV ge SERRPC -:GET ADDRESS OF ERROR INSTRUCTION 
(1) 021726 162767 000002 157162 SUB PC 

(1) 21734 117767 157156 157152 MOVB SSERRPC SITEMB :;:STRIP AND SAVE THE ERROR ITEM CODE 
(1) 021742 032777 020000 157170 BIT #81713, aSwWR ::SKIP TYPEQUT IF SET 

(1) 021750 001005 BNE ::SKIP TYPEOUTS 

(1) 021752 004767 000116 JSR PC .SERRTYP ::G0 TO USER ERROR ROUTINE 

(2) 021756 004567 001540 JSR R5, SPRINT ;:GO PRINT OUT THE FOL. OWING MESSAGE. 
(¢ Ah yi 001201 208 . WORD SCRLF :ADDRESS OF MESSAGE TO BE TYPED 

(1) 021764 122767 000001 157232 CMPB HAPTENV, SENV : ;RUNNING IN APT MODE 

(1) 021772 001007 BNE 2$ ::NO,SKIP APT ERROR REPORT 

(1) 021774 116767 157114 000004 MOVB SITEMB,21$ :2SET ITEM NUMBER AS ERROR NUMBER 

(1) Q22002 004767 002044 JSR PC SATY4 ::REPORT FATAL ERROR TO APT 

(1) 022006 000 21$: .BYTE O 
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(1) 022007 000 BYTE 0O 
(1) 022010 000777 223: BR 22$ ;;APT ERROR LOOP 
(1) 022012 005777 157122 2$: TST aSwWR ;ZHALT ON ERROR 
(1) 022016 100005 BPL 3$ 23 SKIP IF CONTINUE 
(1) 2020 HALT s;HALT ON E : 
(3) ;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSWR ROUTINE 
(3) :* WIHTOUT USING A ‘‘TRAP’’ INSTRUCTION AS CALLED FOR BY **SYSMAC**, 
(3) 022022 013746 177776 MOV a4PSW, -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
(3) 022026 004767 000342 JSR PC, SCKSWR + G0 TO THE SUBROUTINE 
(1) 022032 032777 001000 157100 3$ BIT #BITO9,aSWR 3;;LOOP ON ERROR SWITCH SET? 
(1) 022060 00140 BEQ 4$ : BR IF NO 
(1) 022062 016716 157042 MOV SLPERR, (SP) ;;FUDGE RETURN FOR LOOPING 
(1) 022066 005767 157120 4$: TST SESCAPE 3; CHECK FOR AN ESCAPE ADDRESS 
(1) 022052 001402 BEQ 5$ 26R IF 
$3: nase 016716 157112 5 MOV SESCAPE , (SP) ; FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 022060 022737 014232 000042 CMP #SENDAD , 0442 :z;ACT=-11 AUTO-ACCEPT? 
(1) 022066 001001 BNE 6$ ; ;BRANCH IF NO 
(1) 022070 HALT 3: YES 
(1) 022072 6$: 
(2) 022072 000207 RTS PC 

8922 SLR EERE EEE EERE EEE ERR REAR REREREREERAEEEEEEREEEEEER ED 

(1) 
3. -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
% 
(1) :*THIS ROUTINE USES THE ‘*I1TEM CONTROL BYTE’ tee TO DETERMINE WHICH 
(1) ;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM T RROR TABLE’’ (SERRTB), 
4 7*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 022074 SERRTYP: 
(2) 022074 567 001422 JSR R5, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 0221 001201 -WORD S$CRLF “ADDRESS OF MESSAGE TO BE TYPED 
(1) 022102 010046 MOV RO,-(SP) :SAVE RO 
(1) 0221 5000 CLR sPICKUP THE ITEM INDEX 
(1) 022106 156700 157002 BISB SITEMB,RO 
(1) 022112 1007 BNE 1$ IF ITEM NUMBER IS ZERO, JUST 
(1) tin GB. $8 Bh 
(2) 022114 016746 156776 MOV SERRPC,-(SP) —_ ; SAVE SERRPC FOR T 
(4) :* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE S$TYPOC ROUT INE 
(4) :* WIHTOUT USING A ‘‘TRAP’’ INSTRUCTION AS CALLED FOR BY **SYSMAC** 
(4) 0221 013746 177776 MOV @*PSW, - (SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
(4) 022124 004767 002570 JSR PC STYPOC :G0 TO THE SUBROUTINE 
(1) 022130 000513 BR 10$ :GET OU 
(7) 221 016767 156760 157354 1$ MOV SERRPC, SVERPC ;SET UP VIRTUAL PC FOR TYPEOUT. 
(1) 022140 166767 156434 157346 SUB RELOCF, SVERPC “MAKE VIRTUAL IF NOT ALREADY. 
(1) 2146 5300 DEC RO sADJUST THE 8 SO. THAT IT WILL 
(1) 2150 300 ASL RO ; WORK FOR THE ERROR TABLE 
(1) 022152 006300 ASL RO 
(1) 022154 300 ASL RO 
(1) 022156 700 157456 ADD -ERRTB, RO ; FORM TABLE POINTE 7 
(1) 022162 012067 000006 MOV )+,2$ ip’? "ERROR MESSAGE" POINTER 
(1) 022166 001406 BEQ P TYPEOUT IF NO POINTER 
(2) 022170 004567 001326 JSR R® SPRINT ;G0 — OUT THE FOLLOWING MESSAGE. 
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(1) 022174 2$: .WORD 0 ERROR MESSAGE'’ POINTER GOES HERE 
(2) 022176 567 001320 JSR RS, SPRINT :GO print OUT THE FOLLOWING MESSAGE . 
(2) 022202 001201 “WORD  $CRLF -ADDRESS OF MESSAGE TO BE TYPED 
(i) 0 012067 000006 3$: MOV (RO) +,4$ :PICKUP ‘DATA HEADER’ POINTER 
(1) 022210 001406 BEQ 5$ “SKIP TY YPEQUT FO 
(2) 022212 004567 001304 JSR RS, SPRINT :GO PRINT, OUT THE FOLLOWING MESSAGE. 
(1) 022216 4$: ,WORD 0 ‘DATA HEADER" POINTER GOES HERE 
(2) 022220 004567 001276 JSR RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE . 
(2) 022224 001201 -WORD $CRLF -ADDRESS OF MESSAGE TO BE TYPED 
(1) 022226 010146 S$ MOV R1.-(SP) :SAVE R1 
(1) 0222 12001 MOV (RO) +,R1 “PICKUP ‘DATA TABLE’’ POINTER 
(1) 022232 001451 BEQ 9$ “BR IF NO DATA TO BE TYPED 
(1) 022234 701 156340 ADD RELOCF, R1 :ADJUST POINTER 
(1) 022240 012000 MOV (RO) +,RO :PICKUP ‘DATA FORMAT’ POINTER 
(1) 022242 700 156332 D RELOCF , RO :ADJUST POIN TER. 
(1) 022246 105720 6S: TSTB —s_:« (RO) + ;CHECK T 
(1) 022250 001 7$ IF NOT 1eBlt OC TAL 
(2) 022252 013146 MOV a(R1)+,-(SP) ::SAVE a 3(R1)+ FOR TYPEOUT 
(4) :* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOC ROUTINE 
(4) ** WIHTOUT USING A ''TRAP’' INSTRUCTION AS CALLED FOR BY **SYSMAC*«. 
(4) 022254 013746 177776 MOV aePSW, -(SP)  :PUT THE PROCESSOR STATUS ON THE STACK 
(4) 022260 004767 002434 JSR PC, STYPOC :GO TO THE SUBROUTINE 
(1) 022264 000426 BR QE 
(1) 022266 100406 7$: BMI 7$ ;BRANCH_IF NOT DECIMAL 
(2) 022270 013146 MOV a(R1)+,-(SP) >SAVE a(R1)+ FOR TYPEOUT 
(4) :* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPDS ROUTINE 
(4) -* WIHTOUT USING A ‘'TRAP’’ INSTRUCTION AS CALLED FOR BY **SYSMAC*«. 
(4) 022272 013746 177776 MOV aePSW, -(SP) :PUT THE PROCESSOR STATUS ON THE STACK 
(4) 022276 004767 002140 PC, STYPDS :GO TO THE SUBROUTINE 
(1) 022302 000417 ok ; 
(1) 022304 122760 177777 177777 178: #-1,  -1(RO) :CHECK FOR 18-BIT ADDRESS FORMAT. 
(1) 022312 001004 18$ “BR IF NOT 18-BIT ADDRESS FORMAT. 
(2) 022314 013146 a(R1)+, -(SP) :PUT THE DATA ON THE STACK. 
(2) 022316 004767 002640 PC, STYPAD :DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 
(1) 022322 000407 ae : SKIP 
(1) OesaSe 18$: 
(2) 022324 005046 CLR -(SP) :CLEAR THE WORD ON THE STACK. 
(2) 022326 113116 MOVB a(R1)+, (SP) =PUT THE DATA ON THE STACK. 
(4) :* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE 
(4) -* WIHTOUT USING A ''TRAP’' INSTRUCTION AS CALLED FOR BY **SYSMAC®*. 
(4) 022330 013746 177776 MOV arPSw, -(SP) PUT | THE PROCESSOR STATUS ON THE STACK 
(4) 022334 004767 002334 SR PC, STYPOS :GO TO THE SUBROUTINE 
(2) 022340 003 BYTE 3 : TYPE 3 DIGITS. 
(2) 334 001 -BYTE 1 TYPE LEADING ZEROS. 
(1) 2 005711 8S: TST (R1) :1S THERE ANOTHER NUMBER? 
(1) 344 001404 BEQ 9$ “BR IF NO 
(2) 02 346 004567 001150 JSR R5 SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) $2 022372 .WORD 11$ “ADDRESS OF MESSAGE TO BE TYPED 
Hf. 022354 0007 BR 6$ ; 
(1) 022356 9$: MOV (SP)+,R1 : RESTORE R1 
(1) 022360 10$: MOV (SP)+_RO STORE RO 
(2) 08 362 001134 JSR RS, SPRINT :GO print’ 6 OUT THE FOLLOWING MESSAGE. 
(2) 366 -WORD $CRLF “ADDRESS OF MESSAGE TO BE TYPED 
(1) 02235 RTS PC RE TURN 
(1) 022372 118: ASCIZ / / - TAB CHARACTER, 
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(1) EVEN 
8923 .SBTTL TTY INPUT ROUTINE 

(2) FLERE A ERA AERA AE AEAAEAEEAAAEAEERERARARAEAREREREAERERHERHERE EES 
1) -ENABL LSB 

(2) REE AAAEAAAERE EEE E REET E REE RAERERAERAEEAAREEEEREREEREHHERR EEE 
(1) : SSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

(1) - «ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL 

(1) “*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
(1) “WHEN OPERATING IN TTY FLAG MODE. 

(1) 022374 022767 000176 156536 $cKSWR: CMP #SWREG, SWR 3318 THE SOFT=SWR SELECTED? 

(1) 022602 001104 5 H IF NO 

(1) 022 105 156534 asTKs 

(1) 022410 100101 15$ 

(1) 022412 117746 156530 a$TKB,~-(SP) 

(1) 022416 042716 177600 w°C177 (SP) 

(1) 022422 022726 7, (SP)+ 

(1) 022426 001072 44 : 

(1) 022430 126727 156500 000001 SAUTOB, #1 ::ARE WE RUNNING IN AUTO-MODE? 

1) 022436 001466 15$ : =BRANCH IF YES 

(2) 022440 567 001056 RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 022444 023321 : SCNTLG sADDRESS OF MESSAGE TO BE TYPED 

(1) 022446 SGTSWR: 

(2) 022446 567 001050 J RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 

022452 023326 SMSWR ; ADDRESS OF MESSAGE TO BE TYPED 
22454 016746 155516 MOV SWREG,- (SP) :SAVE SWREG FOR TYPEOUT 

(4) :* THE NEXT TWO INSTRUCT IONS PROVIDE AN INTERFACE TO THE $TYPOC ROUTINE 
(4) -* WIHTOUT USING A ''TRAP’' INSTRUCTION AS CALLED FOR BY **SYSMAC*«. 
(4) 022460 013746 177776 MOV ayPSw, -(SP) ;:PUT THE PROCESSOR STATUS ON THE STACK 
(4) 022464 004767 002230 JSR PC, -—« $TYPOC ~+:GO TO THE SUBROUTINE 

(2) 022470 004567 001026 JSR RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 022474 023337 .WORD SMNEW “ADDRESS OF MESSAGE TO BE TYPED 

(1) 022476 005046 19S: CLR -(SP) *:CLEAR COUNTER 

(1) 022500 005046 -(SP) 7: THE NEW SWR 

(1) 022502 105777 156436 7$: a$TkS >:CHAR THERE? 

Hh 022506 100375 7$ IF NOT TRY AGAIN 

(1) 022510 117746 156432 a$TKB,-(SP) ::PICK UP CHAR 

1) 022514 042716 177600 rte (SP) >:MAKE IT 7-BIT ASCII 

"3 

(1) 022520 021627 000025 9S: (SP) #25 31S IT A CONTROL-U? 

(1) 022524 001006 10$ CH IF NOT 

(2) 022526 004567 000770 RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE . 
(2) 022532 023314 S$CNTLU ; ADDRESS OF MESSAGE TO BE TYPED 

(1) 022534 062706 000006 20$: #6, SP ; IGNORE PREVIOUS INPUT 

(1) 022540 000756 19$ SCLET S TRY IT AGAIN 

(1) 

(1) 022542 021627 000015 10$: (SP) #15 ::1S IT A <CR>? 

(1) 022546 001023 16$ : sBRANCH IF NO 

(1) 022550 005766 000004 4(SP) "= YES, IS IT THE FIRST CHAR? 

(1) 022554 001403 11$ 3 CH IF YES 
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77; SAVE NEW SWR 
3;CLEAR UP STACK 


;GO PRINT OUT THE ee MESSAGE . 
; ADDRESS OF ae TO BE TYPED 
7 7RE-ENABLE TTY KBD INTERRUPTS? 


: H | NO 
th ae TTY KBD INTERRUPTS 


: :BRANCH F YES 
: ;BRANCH IF YES 
-STRIP=OFF ASCII 

7318 THIS THE FIRST CHAR 

“°NO, SHIFT PRESENT 

33 "CHAR OVER TO MAKE 
ROOM FOR NEW ONE. 

= :KEEP COUNT OF CHAR 


3aey IN NEW CHAR 
T THE NEXT ONE 


:GO PRINT OUT THE FOLLOWING MESSAGE. 
sADDRESS OF MESSAGE TO BE TYPED 
7; SIMULATE CONTROL-U 





Be RAEKKEARAAAARKEKAAEARAKARAERAEEEEAKARAKRAEKEKAEAEAAKEEKERAAARERAEAKKEEEEKKKEK 


>*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


CZQMCGO 0=124Kk MEMORY EXERCISER, 16K VER MACY11 1pga(1052) 
CZQMCG.P11 12-MAR-80 13:07 Y INPUT ROUT] 
(1) 022556 016677 000002 156354 MOV 2(SP) ,aSwR 
(1) 02 062706 000006 118: ADD #6,SP 
(2) 000726 JSR R5 SPRINT 
(2) “WORD $CRLF 
(1) 156333 000001 CHPB SINTAG, #1 
(1) 000100 156330 MoV #100, a$TKS 
( 001142 16$: JSR PC .$TYPEC 
000060 CMP (SP) .#60 
( 000067 CMP (SP) ,#67 
( BGT 18$ 
( 000060 BIC #60, (SP)+ 
( 000002 TST 2(SP) 
( BEQ 17$ 
( ASL (SP) 
( ASL (SP) 
( ASL (SP) 
( 000002 17$: INC 2(SP) 
( 177776 BIS =2(SP), (SP) 
( BR 7$ 
( 18$: 
( 000626 JSR RS, SPRINT 
( .WORD  $QUES 
( BR 20$ 
DSABL LSB 
( 
( 
( 
( > *CALL 
( ;* RDCHR 
3% RETURN HERE 
"* 
; 2 
( SRDCHR: MOV (SP) .-(SP) 
( 000004 000002 MOV 4( (SP), 2(SP) 
( 156230 1$: TSTB =e. a$TK 
( BPL 15 
( 156224 000004 MOVB KB,4(S 
( 177600 000004 BIC S55 CSP) 
000023 CMP ASP) a 928 
156176 2$: TSTB asTks 
( 156172 MOVB  a$TKB,-(SP) 
( 177600 BIC CIT? (SP) 
( 000021 CMP (SP)+,#21 
( BNE 2$ 
( BR 1$ 
( 000004 000140 3S: CMP 4(SP) ,#140 
( 000004 000175 CMP 4(SP) #175 





+2 INPUT A SINGLE CHARACTER FROM THE TTY 
; CHARACTER IS ON THE STACK 
::WITH PARITY BIT STRIPPED OFF 


;sPUSH DOWN THE PC 


: H | 

SIWAIT FOR A CHARACTER 
; s LOOP UNTIL ITS THERE 
ee CHARACTER 

ee MAKE IT 7-BIT ASCII 
7215 IT A_CONTROL-Q? 
;IF NOT DISCARD IT 


RESUME 
3318S IT UPPER CASE? 
; BRANCH IF YES 
::1S IT A SPECIAL CHAR? 


SEQ 0105 


N 8 
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CZQMCG.P11 12-MAR~80 13:07 TTY INPUT ROUTINE SEQ 0104 
(1) 023006 003003 BGT 4$ ;7BRANCH IF YES 
(1) 023010 042766 000040 000004 BIC #40 ,4(SP) 37MAKE IT UPPER CASE 
(1) 023016 000002 4$: RT] >;GO BACK TO USER 
(2) © RARER RERREREREEREERRERRERERRERERR ERE R RRR ERR 
ess : STHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
** 4 
(1) :* RDLIN 3; INPUT A STRING FROM THE TTY 
(1) ;* RETURN HERE ; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
ote ;* 7; TERMINATOR WILL BE A BYTE OF ALL O'S 
(1) 023020 010346 SRDLIN: MOV R3,-(SP) ;;SAVE R3 
(1) 0235022 005046 CLR - (SP) > CLEAR THE RUBOUT KEY 
(1) 023024 012703 023304 1$: MOV #STTYIN,R3 SGET ADDRESS 
(1) 023030 022703 023314 2$: CMP #STTYINGS. RS ; sBUFFER FULL? 
(1) 0235034 101467 BLOS 4$ 3BR IF YES 
(3) ;* THE NEXT TWO EAS TRA TOMS PROVIDE AN INTERFACE TO THE $RDCHR ROUT INE 
(3) :* WIHTOUT USING A ‘‘TRAP’’ INSTRUCTION AS CALLED FOR BY **SYSMAC** 
(3) 023036 013746 177776 MOV a4PSW, -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
(3) 023042 004767 177632 JSR PC, SRDCHR ;GO TO THE SUBROUTINE 
(1) 023046 112613 MOVB (SP)+, (R3) 37GET C 
(1) 023050 122713 000177 10$: CMPB #177, (R353) 3ssIS ITA 
(1) 023054 001024 BNE 5$ i IF NO 
(1) 023056 005716 TST (SP) 31S THIS THE FIRST RUBOUT? 
(1) 023060 001010 BNE 6$ ::BR IF NO 
(1) 023062 112767 000134 000212 MOVB #°\ ,9$ «TYPE A BACK SLASH 
(2) 023070 004567 000426 JSR RS, SPRINT ;GO PRINT OUT THE sy & MESSAGE . 
(2) 023074 023302 - WORD “ADDRESS OF MESSAGE TO BE TYPED 
(1) 023076 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
(1) 023102 005503 6$: DEC R3 ; BACKUP BY ONE 
(1) 023104 020327 0233504 CMP R3,ASTTYIN Fo EMPTY? 
(1) 023110 103441 BLO IF YES 
(1) 023112 111367 000164 MOVB (R3) ,9$ SETUP TO TYPEOUT THE DELETED CHAR. 
(2) 023116 004567 000400 JSR R5, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 023122 023302 .WORD 9$ sADDRESS OF MESSAGE TO BE TYPED 
(1) 023124 000741 BR 2$ 33 
(1) 023126 005716 5$: TST (SP) ; ¢RUBOUT KEY SET? 
(1) €23130 001407 BEQ 7$ . IF NO 
(1) 023132 112767 000134 000142 MOVB #°\ 9S : i TYPE A BACK SLASH 
(2) 023140 004567 000356 JSR R5, SPRINT ;GO PRINT OUT THE oe MESSAGE . 
(2) 023144 023302 -WORD 9 : ADDRESS OF MESSAGE TO BE TYPED 
(1) 023146 005016 CLR (SP) =: CLEAR THE RUBOUT KEY 
(1) ©23150 122713 000025 7$: CMPB #25, (R3) 2215 CHARACTER A CTRL U? 
(1) 023154 001004 BNE ;;BR IF NO 
(2) 023156 004567 000340 JSR R5, SPRINT -GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 023162 0233514 -WORD S$CNTLU “ADDRESS OF MESSAGE TO BE TYPED 
(1) 023164 000717 BR ::GO START OVER 
(1) 023166 122713 000022 8$: CMPB #22, (R35) s21S i aos Ne A ***R’"” 
(1) 023172 001014 BNE 3$ H IF NO 
(1) 023174 105013 CLRB (R3) = CLEAR THE CHARACTER 
(2) 023176 004567 000320 JSR R5, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 023202 001201 .WORD $CRL “ADDRESS OF MESSAGE TO BE TYPED 
(2) Q2 004567 000312 JSR RS, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 023210 023304 -WORD $TTYIN sADDRESS OF MESSAGE TO BE TYPED 
$33 023212 000706 BR 2$ :;GO PICKUP ANOTHER CHACTER 
(2) 


0 4 , 
023214 004567 0003502 JSR RS, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
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Cfomce. P11 12=MAR-B0 1 Y INPUT SEQ 0105 
(2) 001 SQUES :ADDRESS OF MESSAGE TO BE TYPED 
(1) 000 1$ 7: CLEAR THE BUFFER AND LOOP 
(1) 111367 000052 3s: (R3) .9$ > : ECHO CHARACTER 
(2) 004567 000266 RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) :ADDRESS OF MESSAGE TO BE TYPED 
1) 000015 #15, (R3)+ 
(1) 177777 -1(R3) -=CLE HE 
(2) RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE . 
(2) SL -ADDRESS OF MESSAGE TO BE TYPED 
(1) (SP) + ; 7 CLEAN T KEY FROM THE STACK 
(1) (SP) +,R3 TORE R 
(1) (SP) .-(SP) : ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 000004 000002 4(SP) ,2(SP) - FIRST ASCII CHARACTER ON IT 
(1) 023304 000004 #STTYIN,4(SP) 
(1) ; RETURN 
ae 9S: 0 : 3 STORAGE | FOR ASCII CHAR. TO TYPE 
(1) STTYIN: 8. «RESERVE 8 BYTES FOR TTY INPUT 
(1) 005015 000 $CNTLU: /*U/<15><12> 3 CONTROL *'U"" 
(1) 006507 000012 S$CNTLG: .ASCIZ /*G/<15><12> = CONTROL ‘'G’ 
oa aS 020122 :  ASCIZ <15><12>/SWR = / 
(1) 047040 053505 SMNEW: .ASCIZ / NEW = 
(7) 000040 
8924 .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
(2) J RRAAKAAAAEAAAAAARAAAAAALAEAARAAEERRERAAAAAAAAARAEEKRARAAAAAARKEREREEE 
(1)  STHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
(1) ; = CHANGE IT TO BINARY. 
(1) :* NPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
(1) :OCTAL DIGITS. IF AN ILLEGAL CHARAC TER IS READ A‘'?’’ WILL BE TYPED 
(1) > *FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMRER MUST 
(1) s¢THEN BE RETYPED- THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
= 
(1) te RDOCT :READ AN OCTAL NUMBER 
(1) :* RETURN HERE 310 ORDER BITS ARE ON TOP OF THE STACK 
1) :* “HIGH ORDER BITS ARE IN $HIOCT 
(1) 023350 011646 SRDOCT: MOV (SP) ,=(SP) ;;PROVIDE SPACE FOR THE 
(1) 023352 016666 000004 000002 MOV 4(SP5 ,2(SP) T NUMBER 
(3) 023 010046 MOV = (SP) RO 
(3) 023362 010146 MOV R1,-(SP) 
(3) 023364 010246 “ MOV R2,-(SP) -=PUSH R2 ON STACK 
(3) :* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE S$RDLIN ROUTINE 
(3) ** WIHTOUT USING A ‘TRAP’’ INSTRUCTION AS CALLED FOR BY **SYSMAC®*. 
(3) 177776 MOV aePSw, ~(SP) :PUT THE PROCESSOR STATUS ON THE STACK 
(3) 177422 PC, SRDLIN :GO TO THE SUBROUTINE 
(1) (SP) +,RO ;3GET ADDRESS OF 1ST CHARACTER 
(1) 000102 RO.5$ > AND SAVE IT 
1) Ri *=CLEAR DATA WORD 
(1) 2$: (RO) +,-(SP) : :PICKUP THIS CHARACTER 
(1) F ZERO GET OUT 
(1) 000060 CMPBs#'"0), (SP) “MAKE SURE THIS CHARACTER 
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G 12-MAR-80 13:07 READ AN OCTAL NUMBER F THE TTY SEQ 90106 
(1) 023420 003026 BGT 4$ 3271S AN OCTAL DIGIT 
(1) 023422 hs 716 000067 CMPB #°7,(SP) 
(1) Oser§s 423 BLT 4$ 
(1) 0234 006301 ASL R1 sie 
(1) 023432 006102 ROL R2 
(1) 023434 006301 ASL R1 33%4 
(1) 023436 006102 ROL R2 
(1) 023440 006301 ASL R1 338 
(1) 023442 006102 ROL R2 
(1) 023444 042716 177770 BIC #*C7, (SP) 7zSTRIP THE ASCII JUNK 
(1) 023450 062601 ADD (SP)+,R1 3;;ADD IN THIS DIGIT 
(1) 023452 000756 BR 2$ sét 
(1) 3454 005726 3$: TST (SP) + ;7;CLEAN TERMINATOR FROM STACK 
(1) 023456 010166 000012 MOV R1,12(SP) ;;SAVE THE RESULT 
(1) 023462 010267 000032 MOV R2,SHIOCT 
(3) 023466 012602 MOV (SP) +,R2 3z:POP STACK INTO R2 
(3) 023470 012601 MOV (SP)+,R1 3;POP STACK INTO R1 
(3) 023472 012600 MOV (SP)+,RO + sPOP STACK INTO RO 
(1) 023474 000002 RTI ; URN 
(1) 023476 005726 4$: TST (SP) + > CLEAN PARTIAL —" STACK 
(1) 023500 105010 CLRB (RO) 3:SET A TERMINA 
(2) 023502 004567 000014 JSR RS, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
(1) 023506 000000 5$: . WORD 
(2) 023510 004567 000006 JSR RS, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE. 
(2) 023514 001200 -WORD S$QUES ;ADDRESS OF MESSAGE TO BE TYPED 
(1) 023516 000723 BR 1$ 77 TRY AGAIN 
ass 023520 000000 SHIOCT: .WORD 0O : HIGH ORDER BITS GO HERE 
8926 FERRARA EERERRREEEREREREREEREREEEEEREEREERERERREERREERKKKEES 
8927 ;* SUBROUTINE TO PASS RELOCATED MESSAGE ADDRESSES TO THE $TYPE ROUTINE. 
8928 :* CALL: JSR RS, SPRINT 
8929 ;* “MESSAGE VIRTUAL ADDRESS> 
8930 SL RARER EEEREREREREAEREREEKERERERREEEREEERERERERERERES 
023522 012567 000016 SPRINT: MOV (R5)+, 1$% ;GET THE MESSAGE VIRTUAL ADDRESS. 
023526 066767 155046 000010 ADD REL OCF, 1$ “MAKE IT PHYSICAL. 
;* THE NEXT TWO INSTRUCT IONS PROVIDE AN INTERFACE TO THE STYPE ROUTINE 
:* WIHTOUT USING A ‘TRAP INSTRUCTION A AS CALLED FOR BY **SYSMAC**. 
023534 013746 177776 MOV avPSW, -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
023540 004767 000004 JSR Pes STYPE ;GO TO THE SUBROUTINE 
89 023544 000000 1$: -WORD QO sCONTAINS THE PHYSICAL MESSAGE ADDRESS. 
pa 023546 000205 RTS R5 ;RETURN. 
on -SBTTL TYPE ROUTINE 
(2) SAREE REEEEREREEEEERREERREEREKREAEEEREERAERERERRERAERRRERERERED 
(1) * SROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 tt 
(1) = * THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(1) - «NOT EV: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) : *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$f 3: *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
(1) 7*CALL: 
(1) :*1) USING A TRAP INSTRUCTION 
A aon TYPE -MESADR > ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
*® 
(1) ;* TYPE 
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CSOmce. P11 12-MAR-80 13:07 TYPE ROUTINE SEQ 0107 
(1) ;* ME SADR 
q) a 
(1) 023550 105767 155403 STYPE: TSTB  $TPFLG ::1S THERE A TERMINAL? 
(1) 100002 BPL 1$ ::BR IF YES 
(1) HALT -:HALT HERE IF NO TERMINAL 
(1) 3$ ; LEAVE 
(1) 1$: MOV RO,-(SP) :; SAVE RO 
(1) 000002 MOV @2(SP) RO ::GET ADDRESS OF ASCIZ STRING 
(1) 000001 155426 CMPB §$ WAPTENV,SENV ;::RUNNING IN APT 
(1) BNE 62$ ::NO,GO CHECK FOR APT CONSOLE 
(1) 000100 155417 BITB §§ #APTSPOOL,SENVM ::SPOOL MESSAGE TO APT 
(1) 62$ ;3NO,GO CHECK FOR CONSOLE 
(1) 023610 010067 000004 MOV RO.61$ “SETUP MESSAGE ADDRESS FOR APT 
(1) 023614 004767 000222 JSR PC S$ATY3 ; ; SPOOL MESSAGE T 
(1) 023620 000000 61$: WORD 0 + : MESSAGE ADDRESS. 
(1) 023622 132767 0000460 155375 62$:  ®BITB  #APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
(1) 023630 001003 BNE YES, SKIP TYPE OUT 
(1) 023632 112046 2$: MOVE (RO) +,-(SP) : SPUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 023634 001005 BNE 4$ “BR IF IT ISN'T THE TERMINATOR 
(1) 023636 005726 TST (SP) + >: IF TERMINATOR POP IT OFF THE STACK 
(1) 023640 012600 60S: MOV (SP)+,RO * ;RESTORE RO 
(1) 023642 062716 000002 3$: ADD #2, (SP) : ADJUST RETURN PC 
(1) 023646 000002 RTI > RETURN 
(1) 023650 122716 000011 4$: CMPB ss WHT, (SP) * ;BRANCH IF <HT> 
(1) 023654 001431 BEQ 
(1) 023656 122716 000200 CMPB es MCRL, (SP) + :BRANCH IF NOT <CRLF> 
(1) 023662 001007 BNE S$ 
(1) 023664 005726 TST (SP) + ::POP <CR><LF> EQUIV 
(2) 023666 004567 177630 JSR RS, SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE. 
(1) 023672 001201 SCRLF 
(1) 023674 105067 000130 CLRB § $CHARCNT ::CLEAR CHARACTER COUNT 
(1) 023700 000754 BR 2$ -:GET NEXT CHARACTER 
(1) 023702 004767 000056 5$: JSR PC .S$TYPEC ;7G0 TYPE THIS CHARACTER 
(1) 023706 126726 155244 é$: CMPB ss SFILLC, (SP) + 71S IT TIME FOR FILLER CHARS .? 
(1) 023712 001347 BNE 2$ =: IF NO GO GET NEXT CHAR. 
(1) 023714 016746 155234 MOV SNULL ,- (SP) ::GET # OF FILLER CHARS. NEEDED 
(1) . > AND THE NULL CHAR. 
(1) 105366 000001 7$: DECB ~—Ss«A SP) ::DOES A NULL NEED TO BE TYPED? 
(1) 023724 002770 BLT 6% -°BR IF NO=-GO POP THE NULL OFF OF STACK 
(1) 023726 004767 000032 JSR PC STYPEC -:GO TYPE A NULL 
(1) 023732 105367 000072 DECB #$$CHARCNT -:DO NOT COUNT AS A COUNT 
1) 023736 000770 BR 7$ ; :LOOP 
(1 :HORIZONTAL TAB PROCESSOR 
(1) 023740 112716 000040 8$: MOVB (SP) ::REPLACE TAB WITH SPACE 
(1) 023744 004767 000014 9$: JSR mc. $TYPEC >: TYPE A SPACE 
(1) 023750 132767 000007 000052 BITB #7.$CHARCNT - =BRANCH IF NOT AT 
(1) 023756 001372 BNE 9S 33 STOP 
(1) 023760 005726 TST (SP) + -:POP SPACE OFF STACK 
(1) 023762 000723 BR 2$ >:GET NEXT CHARACTE 
(1) 023764 105777 155160 STYPEC: TSTB a$TPS > WAIT UNTIL PRINTER IS READY 
(1) 023770 100375 BPL STYPEC 
(1) 023772 116677 000002 155152 MOVB $2(SP),a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 024000 122766 000015 000002 CMPB =—s-«s #CR.. 2 (SP) --15 CHARACTER A CARRIAGE RETURN? 
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cSOmcG. P11 12-MAR-80 13:07 TYPE ROUTINE 
(1) 024 001003 BNE 
(1) 026010 105067 000014 CLRB 
(1) 026014 000406 BR 
(1) 024016 122766 000012 000002 '$: CMPB 
(1) 02 09140¢ BEQ 
(1) 0260 10522 INCB 
(1) 0240 000000 SCHARCNT : .WORD 
s 024032 000207 STYPEX: RTS 

8938 

(2) 
(1) 024034 112767 000001 000376 $ATY1: 
(1) 0260462 112767 000001 000366 SATY3: 
(1) 024050 03 
(1) 024052 112767 000001 000360 SATY4 
(1) 024060 SATYC 
(3) 024060 010046 
(3) 4062 010146 
(1) 024064 105767 000346 
(1) 024070 1450 
(1) 024072 122767 000001 155124 
(1) 024100 1031 
4 0241 132767 000100 155115 
(1) 41 7600 
(1) 000002 000004 
a 67 155054 1$: 
(1) 024132 0067 155062 MOV 
(1) 024136 2$: TSTB 
(1) 024140 001376 BNE 
(1) 024142 155052 SUB 
(1) 024146 ASR 
(1) 024150 010067 155046 MOV 
(1) 024154 012767 000004 155022 MOV 
(1) 024162 13 BR 
(1) 024164 017667 000004 000016 3S: MOV 
(1) 024172 766 000002 000004 ADD 
(3) 024 016746 153572 MOV 
(1) 024 767 177340 JSR 
(1) 024210 4$: . WORD 
(1) 024212 S$: 
(1) 024212 105767 000221 TSTB 
(1) 024216 001422 BEQ 
(1) 024220 017600 MOV 
(1) 024224 062766 000002 000004 ADD 
(1) 024232 012701 001344 MOV 
(1) 024236 005711 6$: TST 
(1) 024240 100404 BM! 
(1) 024242 020021 CMP 
(1) 024244 001406 BEQ 
(1) 024246 005721 TST 
(1) 024250 77 BR 
(1) 024252 026701 155234 8$: CMP 
(1) 024256 140 BEQ 





1$ 
SCHARCNT 
STYPEX 

A 2(SP) 


PEX 


(PC)+ 
0 


PC 


“ 
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; BRANCH IF NO 
5) ae CHARACTER COUNT 
7315 Se eee LINE FEED? 


>: COUNT THE CHARACTER 
; CHARACTER COUNT STORAGE 


~SBTTL APT COMMUNICATIONS ROUTINE 


J RARER AAAAARARARARAARAAREAAAEREE \RRRRSRSARASAAAALERRRAAASARARR ASE SSE S| 





#1, SFFLG 
#1, SMFLG 


$ATYC 
#1,SFFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 


5$ 
#APTENV ,SENV 


8 

RO, (R1)+ 
(R1)+ 

6$ 
SAPTR,R1 
10$ 


:;TO REPORT FATAL ERROR 
3;TO TYPE A MESSAGE 


7:TO ONLY REPORT FATAL ERROR 


PUSH RO ON STACK 
: PUSH R1 ON STACK 
;;SHOULD TYPE A MESSAGE? 
:IF NOT: BR 
; OPERATING UNDER APT? 
:31F NOT: BR 








; ;BUMP RETURN ADDR. 
:2SEE IF DONE W/ LAST XMISSION? 
sc1F NOT: WAIT 
::PUT ADDR IN MAILBOX 
: FIND END OF MESSAGE 


at; START OF MESSAGE 

T MESSAGE LNGTH IN WORDS 
::PUT LENGTH IN MAILBOX 
7:TELL APT TO TAKE MSG. 


:zPUT MSG ADDR IN JSR LINKAGE 
= TURN ADDRESS 

::PUSH 177776 ON STACK 

-:CALL TYPE MACRO 





+ ¢ SHOULD LOG AN ERROR? 
NOT: BR 


;;GET ERROR @ 

: :BUMP RETURN ADDR. 
: sPOINT +6 TABLE START 
oh OF TABLE? 


:71F SO: BR 

::PROPER ENTRY? 

ja SO: BR 

>:MOVE PAST COUNTER WORD 
>: KEEP LOOKING 


: = TABLE FULL? 
>: IF SO: BR -- NO MORE ROOM 


. 
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CZQMCG.P 12-MAR-80 13:07 APT COMMUNICATIONS ROUTINE SEQ 0109 

(1) 024260 010021 MOV RO, (R1)+¢ ;3SET UP NEW ENTRY 

(1) 024262 005211 9$: INC (Ri) ERROR COUNT 

(1) 024264 105767 000150 10$: STR  $FFLG : : SHOULD REPORT FATAL ERROR? 

(1) 026270 001416 BEQ 12$ IF NOT: 

(1) 024272 005767 154726 TST SENV : | RUNNING UNDER APT? 

(1) 026276 001413 BEQ 12$ :IF NOT: BR 

(1) 005767 154700 11$: TST SMSGTYPE FINISHED LAST MESSAGE? 

(1) 026304 001375 BNE 11$ :r1F NOT: WAIT 

(1) 024306 017667 000004 154672 MOV a4(SP),$FATAL ::GET ERROR # 

(1) 024314 062766 000002 000004 ADD #2,4(SP) :BUMP RETURN ADDR. 

(1) 024322 005267 154656 F INC SMSGTYPE 7 TELL APT TO TAKE ERROR 

1) 326 105067 000106 12$: CLRB $FFLG *: CLEAR FATAL FLAG 

(1) 02463 05067 000101 CLRB = $SLFLG 33 LOG F 

(1) 024336 105067 74 CLRB :ICLEAR MESSAGE FLAG 

(3) 024342 012601 MOV (SP) +,R1 ;7POP STACK INTO RI 

(3) 024 012600 MOV (SP) +,RO ::POP STACK INTO RO 

(1) 024346 000207 RTS 33 

(1) 024350 SATY6: 

(3) 024350 010046 MOV RO,-(SP) 7zPUSH RO ON STACK 

(1) 024352 016700 155134 MOV SAPTR,RO 

(1) 024356 162700 001344 SUB #SASTAT RO ::GET SIZE OF STAT TABLE 

(1) 362 005767 154616 1$: TST SMSGTY =:SEE IF DONE LAST COMMUNICATION 
(1) 026366 001375 BNE 1$ :31F NOT: WAIT 

(1) 024370 010067 154626 MOV RO. $MSGLG SET MESSAGE LENGTH 

(1) 024374 012767 001344 154616 MOV WSASTAT.SMSGAD ::SET MESSAGE ADDR. 

(1) 024402 012767 000002 154574 MOV #2 ,SMSGTY ;;TELL APT TO TAKE STATS. 

(3) 024410 012600 MOV (SP)+,RO “POP STACK INTO RO 

(1) 024412 000207 RTS PC >: RETURN 

(1) 024414 SATY?: 

(3) 024414 010046 MOV RO,-(SP) ;PUSH RO ON STACK 

(1) 024416 012701 001344 MOV #SASTAT,R1 “GET START OF TABLE 

(1) 024422 005721 1$: TST (R1)+ : END OF TABLE? 

(1) 024424 100402 BMI 2$ :rIF SO: BR 

(1) 024426 005021 CLR (R1)+ 7: CLEAR ERROR COUNT 

(1) 024430 000774 BR 1$ ::KEEP CLEARING 

(1) 024432 2$: 

(3) 024432 012600 MOV (SP) +, RO ;;POP STACK INTO RO 

(1) 024434 000207 RTS PC URN 

(1) 024436 000 SMFLG: .BYTE 0 : :MESSG. FLAG 

(1) 024437 000 $LFLG: .BYTE 0 FLAG 

(1) 024440 000 SFFLG: -BYTE 0 7: FATAL FLAG 

(1) 024442 

(1) APTSIZE=200°- 

(1) 1 APTENV=001 

(1) 000100 APT SPOOL =100 

(1) 000040 APTCSUP=040 
8939 FLERE AE RARER ERE AAA RATA AERAARA AEA RARAAAARERERERERERE KERR REE EE 
(1) 

(1) .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

(1) :*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
(1) >*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) = *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) > *BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
1) : sREPLACED WITH SPACES. 


co) 


tt Tt tn in i i i i i i ain i i i i i i a i i i 


ee et et et et et ee et et et at tt et a et a et at et et ee at et et et et et et et ee ee ee ee ee ee ee ee ee ee ee ee ee ee me es we 
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0-124K MEMORY EXERC | 
1 12=MAR-80 13:07 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0110 
+e MOV NUM, - (SP) ::PUT THE BINARY NUMBER ON THE STACK 
_ TYPDS -:GO TO THE ROUTINE 
024442 STYPDS: 
024442 010046 MOV RO,-(SP) : PUSH RO ON STACK 
024444 010146 MOV R1,-(SP) - PUSH R1 ON 
024446 010246 MOV R2. -(SP) : PUSH R2 ON 
024450 010346 MOV R3. (SP) - ON 
024452 010546 MOV ON 
024454 012746 020200 MOV #26200, (SP) 
024460 016605 000020 MOV 20(SP) .RS 
024464 BPL 1$ 
024466 005405 NEG R5 
024470 112766 000055 000001 MOVB #'=,1(SP) > MAKE THE ASCII NUMBE 
024476 016700 154076 1$: MOV RELOCF, RO :GET RELOCATION FACTOR. 
024502 012703 024664 MOV #$DBLK .R3 -:SETUP THE OUTPUT POINTER 
024506 060003 ADD RO, R3 “ADD IN RELOCATION FACTOR. 
024510 112723 000040 MOVB #' ,(R3)+ 73 SET THE FIRST CHARACTER TO A BLANK 
024514 005002 2$: CLR R2 :CLEAR THE BCD NUMBER 
024516 016001 024654 MOV SDTBL (RO) .R1 =:GET THE CONSTANT 
024522 160105 3$: SUB R1,R5 ::FORM THIS BCD DIGIT 
024524 002402 BLT 4$ ::BR IF 
024526 005202 INC R2 +: INCREASE THE BCD DIGIT BY 1 
024530 000774 BR 3$ 
024532 060105 4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
024534 005702 TST R2 ;;CHECK IF BCD DIGIT=0 
024536 001002 BNE S$ L THROUGH IF 0 
024540 105716 TSTB (SP) #3 STILL DOING LEADING 0°S? 
024542 100407 BM] 7$ ;7BR IF YES 
024546 103003 BCC 6% IF NO 
024550 116663 000001 177777 MOVB 1(SP),-1(R®) : TYES=-SET THE SIGN 
024556 052702 000060 6S: #°0,R2 -*MAKE THE BCD DIGIT ASCII 
024 052702 000040 7$: #° (RO -*MAKE IT A SPACE IF NOT ALREADY A DIGIT 
024566 10205 MOVB 2, (R3)+ ; sPUT THIS erent ING IN THE OUTPUT BUFFER 


024570 
024572 020067 155044 





024600 
024602 010502 
024604 000764 BR 6$ CHANGE TO ASCII 
024606 105726 8$: TSTB (SP) + «WAS ~ LSD THE FIRST NON-ZERO? 
024610 100003 BPL 9$ ::BR IF 
4612 116663 177777 177776 MOVB -1(SP) ,-2(R3) OES H-SET THE SIGN FOR TYPING 
4620 105013 9$: CLRB (R3) ::SET THE TERMINATOR 
024622 MOV (SP)+,R5 ::POP STACK INTO R5 
024624 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
02 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
02 01 MOV (SP)+,R1 ::POP STACK INTO R1 
024632 012600 MOV (SP)+,RO : er STACK INTO RO 
024634 004567 176662 JSR RS, SPRINT ;GO PRINT OUT THE FOLLOWING MESSAGE . 
024640 024664 . WORD a ; ADDRESS OF MESSAGE TO BE TYPED 
024642 016666 000002 000004 MOV 2(SP) .4(SP) : : ADJUST THE STACK 
024650 012616 MOV (SP) +, (SP) 
024652 000002 RT] : :RETURN TO USER 


024654 023420 $DTBL: 10000 


oo 


O-1 x MEMORY Byene ISER, 
12-MAR-80 1 


“P11 


024674 


001750 
000144 
000012 
000004 
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CONVERT BINARY TO DECIMAL AND TYPE ROUT] 


1000. 
100. 
10 


SDBLK: .BLKW 4 
_SBITL BINARY TO OCTAL (ASCII) AND TYPE 


RRA AEAAEAEAERARAAAATEAAAARARAAEAARAARAARAARAARARARARAREREEEAEAREEREAEAE 


:*THIS ROUTINE IS USED TO A 16-BiT BINARY NUMBER TO A 6-DIGIT 
; *OCTAL (ASCII) NUMBER AND TYPE IT 
*$TY — HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


a 

* MOV NUM, -(SP) ; NUMBER TO BE TYPED 
TYPOS 3;;CALL FOR TYPEOUT 
.BYTE N :z;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
-BYTE ™ ::M=1 OR O 


;;1=TYPE LEADING ZEROS 
; ;0=SUPPRESS LEADING ZEROS 


> *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


» ee 8 8 


>*CALL: 

3* MOV NUM, - (SP) : NUMBER TO BE TYPED 

;* TYPON :;CALL FOR TYPEOUT 

** 

be. iy lias HERE FOR TYPEOUT OF A 16 BIT NUMBER 

** ‘ be 

;* NUM, - (SP) ; ;NUMBER TO BE TYPED 

se 7;CALL FOR TYPEOUT 

$TYPOS a(SP) ,-(SP) rio THE MODE 
1(SP), SOF ILL LOAD ZERO FILL SWITCH 
(SP) + > SOMODE +1 - ;NUMBER OF DIGITS TO TYPE 
#2, (SP) - STADJUST RETURN ADDRESS 

BR $TYPON 

STYPOC: #1,SCF ILL :zSET THE ZERO FILL SWITCH 
#6 , SOMODE +1 ::SET FOR SIX(6) DIGITS 

STYFUN: #5 ,SOCNT ::SET THE ITERATION COUNT 
R3,-(SP) : ;SAVE R3 
R4,-(SP) 7 SAVE RS 
R5,-(SP) 7 SAVE R5 
SOMODE +1,R4 3;:GET THE NUMBER OF DIGITS TO TYPE 
#6 ,R4 :;SUBTRACT IT FOR MAX. ALLOWED 
R4 , SOMODE th IT FOR USE 
SOFILL, R4 ::GET THE ZERO FILL SWITCH 
12(SP), °R5 Hi THE INPUT NUMBER 
R3 ;CLEAR THE OUTPUT WORD 

1$: RS ; 7RO TATE MSB INTO ‘TC 
3$ O MSB 

2$: R5 «FORM THIS DIGIT 
R5 
R5 
R5.R3 

3$: 3 ;GET LSB OF rats DIGIT 
SOMODE «TYPE THIS DIGIT? 
7$ ;;BR IF NO 





CZQMCGO 0-124K MEMORY 7 eal 
12-MAR-80 15:07 


CZQMCG.P11 


~~ 
— 
Ne 


L&E LOR OD OD OO OD OOD OL ROD OD FR RR OO 


Ne Ne Ne rt ee ee ee ee ee ee a ee a ee ee ee ee ee ee ee ee 


PE 


RaER 


ESRESL: 


: 


a ap hn 
rrr 
yew w~w 


$3SR5SSS 


025 


177770 


000002 


177770 
154024 


7 174502 


177746 


000012 
153402 
000001 


000004 


177572 


16K VER 
BINARY TO OCTAL (ASCII) AND TYPE 


4$: 
5$: 


7$: 


6$: 


8$: 


SOCNT: 
SOF ILL: 
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BIC 


#177770,R3 


SOMODE: .WORD 
sERROR TRAP SERVICE ROUTINE 
: TST C)+ 


+ GET ne OF JUNK 
T FOR O 


;DON"T SUPPRESS ANYMORE 0°S 
« UMAKE THIS DIGIT ASCII 
;sMAKE ASCII IF NOT ALREADY 
3 SANS FOR TYPING 
:GO PRINT OUT THE ae: MESSAGE. 
; ADDRESS OF MESSAGE TC BE TYPED 


+3 OUNT BY 1 
:sBR i MORE TO DO 

; F DONE 

:7 INSURE LAST DIGIT ISN'T A BLANK 
+ GO DO if DIGIT 


sRE TURN 
;sSTORAGE FOR ASCII DIGIT 
> TERMINATOR FOR TYPE ROUTINE 
;;OCTAL DIGIT COUNTER 
:-ZERO FILL SWITCH 
; ;NUMBER OF DIGITS TO TYPE 


ERRTRP (P :sCHECK IF PREV TRAP TO 4 REPORTED 
1$: -WORD 0 “CONTAINS ERROR REPORTED FLAG 
BNE 2$ 4 H IF NOT RE 
INC 1$ SET DOUBLE TRAP . 
MOV (SP), $STMP3 ;SAVE THE BAD PC FOR TYPOUT. 
JSR PC, SERR j*** ERROR *** (GO TYPE A MESSAGE ) 
-WORD 31 “ERROR TYPE CODE. 
BR 3$ =SKIP HALT 
2s: HAL T sERROR! SECOND TRAP TO 4 OCCURRED 
sBEFORE FIRST WAS PRINTED 
3$: CLR 1$ 
RT] sRETURN TO PROGRAM AND TRY TO RECOVER 
-SBTTL PHYSICAL ADDRESS TYPE ROUTINE 
a Ste TO TYPE A PHYSICAL ADDRESS (18 BITS). 


RO.-(SP) 


12( SP), R2 
MMAVA 
a4#SRO 


;zPUSH RO ON STACK 
: ;PUSH 4 ON STACK 


> PUSH R2 ON STACK 
; ;PUSH ON STACK 
;GET BASE ES 


ADDRESS 
sWORKING & INDEX REGISTER 
;CHECK FOR MEM MGMT AVAILABLE 
NO MEM MGMT 


BRANCH IF 

:CHECK IF MEM MGMT ENABLED 
:BRANCH IF MEM MGMT NOT ENABLED 
;COPY VIRTUAL ADR 

: SHUFFLE BITS 15,14,15 INTO 1,2,3 





SEQ Oil2 


CZQMCGO 0-124K MEMORY i eel 
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CZQMCG.P11 





Oe2eee 


02 
025447 


12-MAR- 


000003 
000060 


000036 
176172 


176144 


030461 


04 
042514 


046505 
040515 


052131 


16K VER 


J 9 
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MACY11 30A(1052) 13:10 PAGE 59-96 
PHYSICAL ADDRESS TYPE ROUTINE 
ROL R1 
ROL RI 
ROL R1 
BIC #177761, R1 :CLR ALL EXCEPT BITS. iF 2.3 
ADD #KIPARO. R1.  :SET TO APPROPRIATE P 
MOV (R1), RI “GET CONTENTS OF mA 
MOV #6, RO “SET UP COUNTER 
4$: ASL R1 “SHIFT PAR 
ROL R3 “SAVE OVERFLOW BITS 
SOB RO, 4$ “COUNT SIX SHIFTS 
BIC #160000, R2 “SAVE BANK BITS 
ADD 1, > COMPUTE PHYSICAL ADDRESS 
ADC “MAKE SURE CARRY ISN'T LOST! 
1$ ASL R2 “FIRST DIGIT TO R3 
ROL R3 
MOV #6,RO :DIGIT COUNT 
BR 3$ “PRINT FIRST DIGIT 
23: ASL R2 
ROL R3 
DEC RI 
3$: MOV #3.R1 :DIGIT SHIFT COUNT 
ADD #60, R3 ;MAKE IT AN ASCII DIGIT 
MOVB =i, 8$ “LOAD DIGIT INTO MESSAGE 
JSR RS. SPRINT :GO PRINT OUT THE FOLLOWING MESSAGE . 
_WORD &$ “ADDRESS OF MESSAGE TO BE TYPED 
CLR R3 “CLEAR INDEX 
DEC RO “DEC DIGIT COUNT 
MOV (SP)+,R3 ::POP STACK INTO R3 
MOV (SP) +.R2 ;;POP STACK INTO R2 
MOV (SP)+_R1 ;3POP STACK INTO Ri 
MOV (SP)+. >:POP STACK INTO RO 
MOV (SP)+. (SP) | “ADJUST THE STACK TO CLEAR DATA 
JSR R5, SPRINT :GO PRINT OUT THE FOLL OW ING MESSAGE . 
: FILL? ZADDRESS OF MESSAGE TO BE TYPED 
RTS PC RETURN 
8$: BYTE 0 “ONE DIGIT MESSAGE BUFFER 
"BYTE 0 “MESSAGE TERMINATOR 


-SBTTL STANDARD PROGRAM MESSAGES 


EERE RERRE RAE RRER EERE REE RE RA RRA ARERR ARERR ARERR R REAR RE 
‘i a MESSAGE PRINTOUTS USED THRUOUT 

PROGRAM 

g 

© RERRREREEREERREREERE EEE EREERAARRE REE ERR ERR REREREE EERE EEE 


MMAMES: .ASCIZ <15><12>"KT11 (MEMORY MANAGEMENT) AVAILABLE" 


MEMMES: .ASCIZ <15><12>"MEMORY MAP: ' 


BYTMES: .ASCIZ <15><12>'BYTE MEMORY MAP: ' 


SEQ 0113 
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025454 020105 042515 047515 
025462 ene Z: 046440 050101 


9009 025472 $0901 § 040520 044522 MTMAP: .ASCIZ <15><12>"PARITY MEMORY MAP:" 


000 
9010 025517 015 043012 047522 FROM: .ASCIZ <15><12>'FROM ' 


000040 TO: AMECIZ * TO * 
9012 025534 005015 047111 052523 INSUFF: .ASCIZ <15><12>" INSUFFICIENT MEMORY...FIRST 16K NOT ALL THERE!’ 


9013 Oseeh2 015 047012 020117 MIR: eASCIZ <15><12>"NO PARITY REGISTERS FOUND' 
02 042116 000 
9014 Oezeet 015 051012 Oat: PWRMSG: .ASCIZ <15><12>"RESTARTING AFTER A POWER FAILURE *<15><12> 


9015 eASCIZ <15><12>"NO PARITY ERRORS FOUND ON MEMORY SCAN‘<15><12> 





9016 PROREL: .ASCII <15><12>'PROGRAM NOW RESIDES BACK AT 0 TO 8k" 


9017 044012 saat ASCIZ <15><12>"HIT CONTINUE FOR NORMAL RUNNING‘<15><12> 


9018 Oo els 043505 MX1: eASCIZ <15><12>'REGISTER AT ° 


04252 


000040 
9019 047117 051124 MX2: -ASCIZ * CONTROLS * 


CZQMCGO 0-124K MEMORY EXERCISER, 


12-MAR~80 13:07 


CZQMCG.P11 


9020 


9021 


9022 


9023 


9024 


9025 


9026 


9027 


9028 


9029 


9030 


9031 


046117 


IN) 
NOW 






© 
BE Fu 
= Sa Nass 


eu 


40 
051523 
040514 
042104 
020072 
037412 





000 
051117 
044522 


020123 
054524 


030461 
051123 


04 
02004 


16K VER 
STANDAR 





Mx3: 


MX4: 


MX5 : 


MX6: 


NOMEM : 


FADMES: 


LADMES : 


PRELOC: 


ASCI2 


ASCIZ 


ASCIZ 


ASCIZ 


-ASCIZ 


ASCII 


eASCIZ 


eASCIZ 


: .ASCIZ 


eASCIZ 


: .ASCIZ 


ASCIZ 
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D PROGRAM MESSAGES 


<15><12>"CORE PARITY ' 
<15><12>"MOS PARITY ' 
<15><12>'MS11-K CSR ' 


"MS11-K MEMORY PRESENT!! JO COMPLETELY TEST RUN DZMML...° 


<15><12>"NO MEMORY FOUND.’ 


<15><12><12><12>" INPUT ALL PARAMETERS IN OCTAL.’ 


<15><12>"FIRST ADDRESS: ‘' 


<15><12>"LAST ADDRESS: ' 


<15><12>"?ADDRESS IN UNMAPPED BANK?" 


<15><12>"SELECT CONSTANT: * 


<15><12>"UNEXPECTED MEMORY PARITY ERROR’ 


<15><12>"PROGRAM RELOCATED TO ° 


| 
SEQ 0115 


CZQMCGO 
CZQMCG.P11 


9032 


9035 


9034 


9035 


026574 
0 


O-124K MEMORY EXE 
12-MAR-80 1 


VARKER 
NY fp ny 
MNAWAN S&S 


040520 





052125 





6111 
020124 
027122 


020117 
054522 
042524 
044513 


020107 
021440 


054524 
051511 
040504 
051122 
051505 


RCISER, 16K VER 
? STANDARD 


MTOE: 


SCANM: 


PEWNC : 


FILL2: 


m9 
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PROGRAM MESSAGES 


eASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


: .ASCIZ 


eASCIZ 


<15><12>"MORE THAN ONE PARITY ERROR FOUND.’ 


<15><12>"SCANNING MEMORY FOR BAD PARITY.'° 


<15><12>"PARITY ERROR WILL NOT CLEAR.’ 


<15><12>"NO MEMORY TESTED.’ 


<15><12>"SKIPPING TEST #° 


<377><377> 


-SBTTL ERROR REPORTING MESSAGES AND TABLES. 


FF AAA AAEAERAAAAAEAAAAEKERERERARERAERAERKERKEAKEERKEEKKEKEKEERKKEREEREKE 


:* MESSAGE BLOCK FOR ERROR TABLE TYPEOUTS 


* -REAAREARAEAEAEAEAAAREREAEAAAEEEKKEAARAKAAKAAKKKEKKKEKAEKKKKEKKREKKKEKKEKEEKEK 


M1: 


DM2: 


DMS : 


DM6 : 


ASCIZ 


ASCIZ 


eASCIZ 


ASCIZ 


ASCIZ 


"PARITY REGISTER DATA ERROR." 


"ADDRESS TEST ERROR(TST1-5).° 


"CONSTANT DATA ERROR(TST6~-10).° 


"ROTATING BIT ERROR(TST11-12).' 


‘MOS REFRESH TEST ERROR (TST 30-31).° 


SEQ 0116 


, 


CZQMCGO 0=124K MEMORY EXERCISER, 16K 
CZQMCG.P11 


9050 


9051 


9052 


9053 


9054 





051122 
0 


052125 


12-MAR~-80 13:07 


051117 


051105 


080068 


027051 
052111 
047515 
042440 
052050 
027051 
050111 
020110 


052111 
044507 
04 


VER 


MACY11 30A(1052) 


N 9 
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ERROR REPORTING MESSAGES AND TABLES. 


DM7: 


DM10: 


DM11: 


DM12: 


DM13: 


DM14: 


DM16: 


-ASCIZ 


ASCIZ 


-ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


-ASCIZ 


"3 XOR 9 PATTERN ERROR(TST13~-16).' 


"MARCHING 1°S AND 0°S ERROR(TST 27)."' 


"PARITY MEMORY ADDRESS ERROR(TST17).' 


"DATIP WITH WRONG PARITY DIDN'T TRAP(TST17).°° re 


"WRONG PARITY TRAPPED, BUT NO REGISTER SHOWS ERROR FLAG." 


"PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS(TST17).° 


"MORE THAN ONE REGISTER INDICATED PARITY ERROR. ° 


SEQ 0117 


































: : 
” 2 N < 
8 : 7 : : | 
4 ° . § . : 2 
- 64 7, fa toe 
red . a 6 a : - 
Su x 5 . . 
off : : : a : 
ig ee oe oe ee 
ae ma : a oO 6 z 
ie ee 
“2 . ~ ~ ~ ~ ~ oN oN 
: ee, ae. 
$ SSSZSLLLIRIIES ANY ABGRR NALPTS KAGAN KSLISLen gs 
< sae sonia $333 oa: Rie SIo9S5 Bar oRet Se 33 oak 
ES SSE SR OR IEE US Sn Senwcenane ng ee She arias a Sy 
Bs GERASRRS REAR GSaN RYSTRBESSSESS SAGSSSSR 
e SSE NERS ROONNARE NORE - HIERN Se: SLOSASLENSINLSGSS 
Hy He SEN “SH sidewboistel Glesss 2 6 uae 
y ERBERE $5 SS naan Sco eNaar er Seaetaee 
OE 7 ae foe 3 3 








-ASCIZ <15><12>* TRAPPED TO 4 ° 


3 
8x38 
© 
3 


ao55 
see 


LRN 
RAR 
Oooo 


; 
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CZQMCGO  0-124K MEMORY EXER 
CZQMCG.P11 12-MAR 13:0 REPORTING MESSAGES AND TABLES. SEQ 0119 
9065 FRR AAA AERA REAR EEREE EAE RAEEEEAERERERERARRERERERERREREEERE EE 
DATA COLUMN HEADINGS 
9067 FAA ERA EEEEEEAEE AERA EEE REEEREREERARREREEREERERRHEED 
9068 
9069 0065 DH1 : -ASCIZ ‘PC REG $/B WAS ‘ 
040527 
9070 75 DHe: -ASCIZ ‘V/PC P/PC MA $/B WAS ° 
051411 
051501 
9071 1g8 DH12: .ASCIZ ‘V/PC P/PC MA $/B" 
0275 
004501 
9072 027526 DH14: .ASCIZ ‘V/PC P/PC REG MA" 
050057 
004507 
9073 126 DH15: .ASCIZ ‘V/PC P/PC MAUT REG S/B WAS" 
027520 
052501 
3h 
9074 027526 DH21: .ASCIZ ‘V/PC P/PC TUT MA S/B WAS * 
050057 
524 
ee 4 
9075 126 DH25: .ASCIZ ‘V/PC P/PC SRC MA DST MA S/B WAS" 
027520 
041522 
051504 
051411 
051501 
9076 126 DH24: .ASCIZ ‘V/PC P/PC TRP/PC" 
ie 
9077 oer ES DH25: .ASCIZ ‘V/PC P/PC TRP/PC REG WAS ° 
7 
027520 04 
a 053411 051501 
126 7 0045035 DH26: «.ASCIZ ‘V/PC P/PC REG WAS" 
051011 
051501 
9079 053411 DH30: .ASCIZ ‘REG WAS MA WAS" 
004501 





WER RRRASBASALAALASALALELELASLASLALERERESAR ARR SAS ARARA RAR AA AA RAS AL SS SSS, 


>* DATA FORMAT TABLE FOR ERROR PRINTOUT. 


"= RRR AEAAEEAAEAAERATARAARKARAAEAEAEAAREREEEEEEEKEKREEKEAEKEKEKEE 


377 000 DF1: -BYTE 0,-1,0.0 
377 377 DF 2: -BYTE 0,-1.-1.0,0 





cee {oles ME MOR Y ee ISER, 
CZ7QMCG 13:0 





12=MAR~80 
cor a 
Se: 
sa 
770 000 
030773 377 
50776 77 
031001 76 
032110 

000001 


16K 


VER 


DF 3: 


DF14: 
DF 21: 
DF 30: 


ERROR REPORTING MESSAGES AND 
-BYTE 
-BYTE 
-BYTE 
-BYTE 
-EVEN 


= 32110 
. END 








O,-1 ,-1 ,-2.,°2 

0,-1 .-1,-1,0.0 
0.-1,0.-1.0,0 

=1,6,°1 .-< 





10 
12-MAR-80 13:10 PAGE 59-103 
TABLES 


>THE LOADERS ARE SAVE HERE TO END OF 8k 


SEQ 0120 


CZQMCGO 0-124K MEMORY EXERCISER, 16K VER MACY11 30A(1052) 15-mar-80 13:10 PAGE 60 
CZQMCG.P11 12-MAR-80 13:0 CROSS REFERENCE TABLE -- USER SYMBOLS SEC 0121 





ge 8 
4 







WTR wu 


eee eee 


cbepsrereceeeees 





< 
oO 
~ 





at 
3 


7568 7640 8653 









28:22 
$33" 


oat 











ae 


a 





89 
8937 89384 


90284 
7221 7229 7237 83294 
6837* 6858* 6874 6875 6876 6877 6885*  6886* 6895 6897 6900 6903* 





BANKNO 0161 
BITPT 001544 


——— ee 


F 10 | 
CZQMCGO O0-124K MEMORY EXERCISER, 16K VER MACY11 30A(1052) 12-MAR-80 13:10 PAGE 60-1 | 
:07 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0122 


CZQMCG.P11 12-MAR-80 13 
7598 7600 8079 8080= 8087 8089 8092* 8093+ 8096 8098 8103 
8126* 8129 8130 8144 8145 8146 8148 8157* 8158" 8162+ 8167 
8191* 8193 8195 8197 8199 3 8204 8234* 8236 8238 8241 


820 
8255 8256 8271 8273 8281* 8282+ 8284 8286 8291* 8293 8295 
6249 6750 6914 7043 7049 7125 7144 7589 7613 7624 8079 


@ 
— ee 
~~ 
© 
i 


- 8921 

a 8132 8205 8242 °&# 3921 
" 8919 

. 8157 8442 

- 8474 





8155 8185 8919« 





6659* 7136 
8262 86634 
8695 87524 
2 8937 
CTRLS 
4 hall = 6624 
DF 14 6558 6584 6589 6594 90874 
Fe 6512 6517 #£4«®46522 #&4«346527 ~ #426569 386599 = 6604 90854 
OF 6537 6542 6564 90864 
DF 30 90894 
DH1 
DH12 90714 
DH14 90724 
DH15 


CZQMCGO 0=124K on co 16K VER 


CZQMCG.P11 :07 
DH2 03041 94 
DH21 030540 6572 
DHi25 030571 6582 
4 030631 
DH25 030652 
DH26 030703 
DH30 030725 
DIDBH 01300 
DIDBL § 012710 
DIDO 12 
DIPDO 013100 
DISPLA 001142 
DISPRE 17 
270 
0 027311 
1 027355 
2 027421 
5 027475 
4 27565 
6 27664 
7 027743 
027054 


Mew 
ooo 
Ss 

™ 

Nm 


PETER EES ERE EEEEEEES 
re —) 
a 





1 

EMTVEC= 000030 
ENDINS 021634 
ERRTRP 025124 
ERRVEC= 000004 


FADMAP 001570 


6500 
90744 
90754 





6505 


90784 


90444 


MACY11 30A(1052) 1 
CROSS REFERENCE TABLE -- US 


6510 


8507* 


6506 


8598 


6648* 


8146 


6515 6520 
8560* 8919« 
6511 6516 
89424 

6657*  6681* 
8148 8271 


6525 


8921* 


6521 


6721* 


8275 


6530 


6526 


6741* 


8295 


10 
~MAR-80 13:10 PAGE 60-2 
ER SYMBOLS 


6562 


6531 


6748* 


8297 


6567 


6563 


6799* 
8919* 


90704 


6568 . 


6816* 


8501* 


SEQ 0123 


8554* 


CZQMCGO 0-124K MEMORY ea =e. 
C2OMCG. P11 80 7 











16K VER 
13:0 
7067 90254 
64854 299 8919« 
90374 
64854 8138* 8228+ 
6756 8820 90104 
64854 7030 7116* 
6729 67954 
68004 6814 
6799 68064 
6804 680 
6797 68204 
6204 6627 
61864 8937 
62014  6658* 

7 6648 66554 
7168 7185 7195 
8149 8151 8170 
7159 7177 7204 
7358 7367 7383 
7784 7824 7861 
89194 
6730 90124 
61864 
61894 6240 6259* 
61894  6265* 8065* 
61894 6692 6712* 
8207 8280* 8313 
61 6774 6777 
8528* 

61894 8068 

61 8069* 

61894  8070* 

61894  8071* 

61894 6235 8056* 

61894  8057* 

61894 8058 

61 8059* 

61894 8060 

61 8061* 

61 8062* 

61894  8063* 

64854 7110* #£7111* 
8181 8183 8197 
068 90274 

64854 8100 8119 
64854  6625* 

61864 8937 

64854 8572 8583* 
64854  7036* 7076* 
7141 7658 86384 
86534 8655 

8639 8641 8647 
6821 6960 7020 
7035 70434 

7037 71204 

6657 66714 


MACY11 30A(1052) 
CROSS REFERENCE TABLE -~ USER 


§231* 


7128* 
8199 


8141 


8590 
7080 


86574 
70294 


10 
1 2-MAR-80 
SYMBOL S 


8249» 

8919 

7236 81534 

7220 7250 7259 7282 

7413 74530 7469 7478 

79335 7970 7986 7997 

8468* 8552* 8970 

8533* 

6884* 7612 8066* 
8455* 68 8527* 8700 

8067* 8102* 8107* 8207* 
7129* 8096 8098 8115 

8216 8218 8238 8248 

8201 8220 8240 8252 

8604* 

7091 7122* 7123* 7124* 
7109 


13:10 PAGE 60-3 


8117 
8250 


8919» 


7125* 


8130 
8919 


7126 


7313 
7665 
80794 


8102 
8739* 
8443* 


8139 


8171 


7321 
7710 
8345 


8159* 
8451 


8167 


8919 


7337 
7747 


8189* 
8469 


8169 


CZQMCGO Q=-124K MEMORY SRM SER. 
80 13:07 


CZQMCG.P11 


PHYADR 
PIRQ = 





016064 
177772 


6841 
61984 
6228 
8447 











6890 
6892 


90344 
7169 


16K VER 


6941 
6945 


7586* 


7186 


8505* 


7196 


gts. 
6897 
8484 


8556* 


7205 


6951* 
6955* 


8649* 


83084 


8438 


6958 


8650* 


10 
MACY11 30A(1052) 12-MAR= ; 
CROSS REFERENCE TABLE -~ USER AA=80 13:10 PAGE 60-6 


8727 
7065 


6974 


8919 
7098 


6840 
8575 


7011 


7019 


7539 


SEQ 0125 


7105 
7120 
8732 


7353 
7754 


8260 


CZQMCGO 0-124K MEMORY EXERCISER, 16K VER 
CZQMCG.P11 


PIRQVE= 000240 
PME MAP 

PRELOC 
PRGMAP 


PRA = 


001540 
026552 
000602 


025770 
000000 





12-MAR-80 


13:07 


61864 


ee eed eed eed aed od 2d 


MSPS TCLS 





6852* 


6272 
8563* 


6876* 


62874 
8564* 


MACY11 30A(1052) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


6877* 


6632* 
8919 


7069 
8555* 


8539 
64 


6990 


8059 
7051* 


J 10 
12-MAR-80 


6941« 
6633* 


7118 


69953 


8063 
7086* 


6942* 
8024 


8046 


8500* 


7614* 


7087* 


6945* 
8026 


8825 


8509 


7615 


8024 


13:10 PAGE 60-5 


6946* 
8030 


8826 


8516 


7616 


8026 


7548 
84 34 


8919 


8537 


7638 


8919 


7550 
8465 


8920 


8562* 


8471« 


8921 


8642 


SEQ 0126 


8489 


8922 


8919 


K 10 
CZQMCGO Q=124K MEMORY EXERCISER, 16K VER MACY11 30A(1052) 12-MAR-80 13:10 PAGE 60-6 









CZQMCG.P11 12-MAR-80 13:07 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0127 
7675 7941 7945 7962 7999 8016 878354 
SPRNT3 020372 7715 7752 7790 7829 7866 7904 8782s 
SRO = 177572 61894 6235 6249* 6649* 6742+ 7144 8072* 8577* 8586+ 8961 
SRI = 177574 61894 
SR2 = 576 61894 
SR5 = 172516 61894 
STACK = 001100 61864 6227 6268 6270 6485 6624 6655 6671 6737 
START 002650 6204 66214 
STARTA 002664 6230 . 6282 6622 66244 
START1 006114 6279 7127 71354 7139 8038 8046 
STKLMT= 177774 61864 
SWR 001140 6290* 64854 6624* 6627 6646 6739 6796 7266 7268 7541 8028 8504 8506* 
8557 8559* 8640 8644 8665 8919 8921 8923* 
SWREG 000176 620464 6624 6627 8925 
SWwO = 1 61864 
SWOO = 000001 61864 
SwO1 = 000002 61864 
SwO2 = 000004 61864 
SWwOS = 000010 61864 
SwOS = 000020 61864 
SWOS = 000040 61864 8919 
SwO6 = 000100 61864 6796 7541 
SWwO7 = 000200 61864 8028 
SWOS = 000400 61864 7266 
SwO9 = 001000 61864 
Swi = 000002 61864 
SW10 = 002000 61864 
SW11 = 004000 61864 
SWwi2 = 010000 61864 6646 6739 
SW15 = 020000 61864 
SW14 = 040000 61864 
SW15 = 100000 61864 
SWw2 = 000004 61864 
SWw3 = 000010 61864 
SW4 = 000020 61864 
SWS = 000040 61864 8644 
SWw6 = 000100 61864 8640 8665 
SW7 = 000200 61864 
SW8 = 000400 61864 
SW9 = 001000 61864 
TBITVE= 000014 61864 
001 64854 968 
003632 6787 
61864 
688 
8275 8919* 
8120* 8202*  8221* 8224 8919* 
64854 8104* 8108* 8109* 8111 8113 8115 8117 8129* 8134* 8156 8139 
8144* 8181 8185 8203* 8204* 8209 8210* 8212 8214 8216 8218 8241* 
44* 8255*  8256* 
TO 6763 8813 90114 
TPVE 61864 
TRAPVE 61864 
TRIVEC 61864 
TSTMAP 001530 64854 8087 8089 8111 8115 8125 81536 8195 8195 8212 8214 8236 8246 


CZQMCGO Q-124K MEMORY SRERGISER. 


CZQMCG.P11 12-MAR-80 13:0 





16K VER 


7145 
7271 
72884 


71578 
72778 


80224 


87934 


8057 8058 8059 8063 
6860 6894* 7567 7574 


7647# 
76544 
7405 7470 83764 


8925 


8615* 
8786* 


MACY11 30A(1052) 15-Mar-80 “7 10 PAGE 60-7 
CROSS REFERENCE TABLE -- USER SYMBOLS 


SEQ 0128 


M 10 
CZQMCGO O0=124K MEMORY EXERCISER, 16K VER MACY171 30A(1052) 12-MAR-80 Phi PAGE 60-8 
CZQMCG.P11 12-MAR-80 13:07 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0129 


8920 8921 89234 
6624 






67253 6937 8044 8921 8922 8925 8924 8937 


















SODWO 
SODW1 
SODW10 
SODW1 1 
sob! § 
$O0W1 
SODW14 
SDDW15 
SODW2 
SDDW5 
$0DW4 
SDDW5 
SDDW6 
$ODW7 
SODWS 
$DDW9 
SDEVCT 
SDE VM 
SDOAGN 
SDTBL 
SENDAD 6627 80464 8921 
SENOCT 
SENDMG 
SENULL 
SENV 6627 6635 8034 8046 8921 8937 8938 
SENVM 6624 8937 8938 
SEOP 8029 80464 
SEOPCT 80464 
SERFLG 8919* 8921* 
SE RMAX 8919* 
SERROR 6991 6995 7025 7162 7172 7190 7207 7223 240 72 7284 7296 
7323 24 7325 26 340 7343 7346 7369 7370 71 7372 7 
92 7415 7416 7417 7418 432 7435 74 7439 7442 45 7446 
7452 7453 7456 7459 7480 7481 7482 7483 497 7 7503 75 
7510 7511 7514 7517 7518 7521 7524 7562 7 7596 7602 7618 
7 7646 7675 7715 7752 7790 7829 7941 
6 842 1 8628 8673 8676 8716 89214 8947 
001116 8921* 8922 
002340 
022074 Con 
001112 8714* 8921* 
001172 8919* 8921 
Pore 4 
001 
001206 8938* 
024440 





CZQMCGO O0-124K MEMORY EXERCISER, 
12-MAR~80 13:07 


CZQMCG.P11 


SFILLC 001156 
SFILLS 001155 
SGDADR 001120 


SGDDAT 001124 
SGET42 014202 
$GTSWR 022446 








16K VER 


6624 


8766* 
876/7* 
7072 


8922 
8925 


7140* 
8921 


6627 


71934 


76604 


8046* 


6652 
6927 


8690 
8939 


8925 


8775* 
8785* 


7075* 


8924 
7273* 


8919 


72114 
77064 


8924 


MACY11 30A(1052) 
CROSS REFERENCE TABLE -- USER 


8778* 


7077 


8937 
8919* 


8921 


72268 
77434 


6723 
6936 
8745 
8990 


8937 


8779* 8783* 8784« 
7088 89244 

8937 

72484 72574 277k 
77804 78204 78574 
6730 6745 6756 

6956 7047 7068 

tad 8813 8820 


10 
12-MAR-80 13:10 PAGE 60-9 
SYMBOL S 


(2884 
78944 


(299K 
7932h 


73104 
79854 


SEQ 0130 
73554 74014 
80024 
6912 6918 
8046 8427 
8925 8924 


CZQMCGO 0-124K MEMORY 


Em SER. 16K VER MACY11 30A(1052) eman-g0 7 10 PAGE 60-10 
CZQMCG.P11 12-MAR-80 R SYMBOL 


CROSS REFERENCE TABLE -- 


<M 
Pn 
OD 





= 
. 


24 
9 





7118 89244 





7175 7193 7211 7226 7248 7257 7277 7288 7299 7310 7355 
7538 7660 7706 43 7780 7820 7857 7894 7932 7985 £002 


6624 6627 8046 8919 8921 8923 







aaa | 






5a 
61774 6290 6485 6624 7157 7175 7193 7211 7226 7248 
7277 7310 7355 7401 7466 7538 7660 7706 7743 7780 
7857 7985 8002 8046 8919 8921 
$26 64854 
SSWRPK= 000 61784 
STESTN 001210 64554 
170 6277* 8046* 8919* 
146 64854 
144 64854 
001160 64854 8321* 8770" 8774* 8782* 
162 64854 
164 6691* 6702* 7036 7074 
198 6699* 6701*  6703* 7075 8946* 
7175@ = =67193H 72118 72268 (724684 72574 7262 7277# = =—67 281 


74014 74668 75384 76604 7706 77434 =%$(780 78208 7857# 


8025* 8919* 8921 
8428 8922 89564 





T= eeeee8 


‘ = 032110 44 6290 64854 6624 6629 8046 8919 8921 89234 
. CONST 1610 7258 

-E 1GHT 1642 

-ERRTB 001640 


-MPPAT 001634 


SEQ 0151 


7401 
8021 


7257 
7820 


894 


O-124K MEMORY 0 ioe’ 16K VER MACY11 30A(1052) 1S-mAR-80 7 10 PAGE 60-11 








GO 
-P11 12-MAR-80 CROSS REFERENCE TABLE -- USER SYMBOL SEQ 0132 
19 64 o le: 7573 7594 7622 8616 8652 8668 8709 8753 
0016 75 
16 7581 7586 8649 
-RESRV 1085 
TACK 001622 7135 
TST 001644 F 8919 
SASTA= seeeee 
-$X = 001330 





- 5x9 007312 


ce eee —_—_— 


D 11 
MACY11 30A(1052) 12-MAR-80 13:10 PAGE 61 








CZQMCGO 0-124K MEMORY EXERCISER, 16K VER | 
CZQMCG.P11 12-MAR~-80 13:07 CROSS REFERENCE TABLE ~~ MACRO NAMES SEQ 0153 
oa 8166 8338 8422 8436 8491 8524 8574 
CKWD 7207 7223 7240 7480 7284 7296 7307 7323 7324 7325 7326 
7379 7371 7372 7 7389 7392 7415 7416 7417 7418 7432 
7445 7446 7449 7452 7453 7456 7459 74386 7481 7482 7483 
7507 7510 7511 7514 7517 7518 7521 7524 7618 7641 7675 
7866 7941 7945 7962 8016 
CKWD2 7284 7323 7324 7325 7326 7340 7343 7346 7369 7370 7371 
7415 7416 7417 7418 7432 7435 7438 7439 7442 7445 74 
7459 7480 7481 74 7483 7497 7500 7503 7504 7507 7510 
7521 7524 7675 7 8016 
6617 7131 
6620 7134 
8059 8063 
7175 7193 7211 7226 7248 7257 7277 7288 7299 7310 7355 
7706 7743 7780 7820 7857 7894 7932 7985 8002 
7636 7644 8323 8339 8429 8515 8553 8631 8656 8680 8729 
88335 8924 8938 8939 8994 
6730 6745 6756 6763 6782 6819 6912 6918 6922 6926 6927 
7117 8044 8427 8614 8627 8690 8722 8745 8797 8919 8990 
PUSH 7603 7620 8312 8350 8407 8437 8452 8545 8615 8651 8667 
8799 8821 8924 8938 8939 8956 
ROCHR 
RDDEC 
RDL IN 
RDOCT 
REPORT 
RESREG 
SAVREG 
SCOPE 
COPE X 
SCOP IN 
SE Lp 
SIMTRP 7069 7118 8046 8825 8826 8919 8920 8921 8922 8925 8924 
SKIP 
SLA 
SPACE 
STARS 6215 6218 6223 6485 6661 6670 6735 6 6793 
6965 6967 000 7003 7040 7042 7157 7175 7193 
7248 7257 7277 2 7299 7310 7317 7319 7333 7335 7355 
7401 7408 7410 7425 7427 7466 7473 7475 74 7492 7538 
7820 7857 7894 7932 7985 8002 8046 8049 76 8078 
83 8307 8326 8328 8342 8344 8350 8352 8373 8375 





ee 


CZQMCGO 0-1246K MEMORY 7 aie 16K VER MACY11 30A(1052) 15-4aR-80 13:10 PAGE 61-1 | 
e2OMCG. Pl) 12-MAR~80 13:07 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0154) 
| 





7460 7465 7484 7487 7525 7528 8400 
7193 7211 7226 7248 
6784 8428 8922 


6723 6730 6745 6756 6763 6782 6819 6912 6918 6922 
7108 7117 8044 8046 8427 8614 8627 8690 8722 8745 
8922 8925 8924 8937 8939 8940 8990 8996 


7190 7207 7223 7240 7260 72 72 7307 7323 7324 
7369 7370 7371 7372 7386 7389 7392 7415 7416 7417 
7442 7445 7446 7449 7452 7453 7456 7459 74 7481 
75 7507 7510 7511 7514 7517 7518 7521 7524 7 
he 78 904 7941 7945 8016 
7220 7250 7259 7282 7291 7302 7313 7321 7337 7358 
7469 7478 7495 7546 7665 7710 7747 77 7824 
fui 

7224 7252 7261 7285 7297 7308 7315 7331 7353 7360 
7471 7488 7679 7717 7754 7792 7831 

7162 7172 7190 7207 7223 7240 7260 7284 7307 
7343 7346 7369 7370 7371 7372 7 7389 7392 7415 
7438 7439 7442 7445 7446 7449 7452 7453 74 7459 
7500 7503 7504 7507 7510 7511 7514 7517 7518 7521 
7618 7628 7641 7646 7675 7715 7752 78 7 
8016 28 8673 8676 8716 


7211 7226 7248 7257 (277 7288 7299 7310 7355 7401 


. 
o 





vouo: 


aneaeny 






6995 7025 7162 7172 7190 7207 7225 7240 7260 7284 7296 7307 





11 
CZQMCGO O0-124K MEMORY eel 16K VER MACY11 30A(1052) 1b -mAR-80 13:10 PAGE 61-2 | 
POMC. P11 12-MAR-80 15:07 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 01%5 
7323 7326 7340 7343 346 7369 7370 7371 7372 7386 7389 7392 7415 
7416 7432 7435 7438 7439 7442 7445 7446 7449 7452 7453 7456 7459 
7480 7483 7497 7500 7503 7504 7507 7510 7511 7514 7517 7518 7521 
7524 7596 7602 7618 7628 7641 7646 7675 7715 7752 7790 7829 7 
7904 7999 8016 8421 8621 8628 8673 8676 8716 8947 
7193 7211 7226 7248 7257 7277 7288 7299 7310 7355 7401 7466 
7743 7780 7820 7857 78 7932 985 8002 8021 
55934 61744 8046 
61724 8921 
8044 8922 
61714 6290 
61744 8924 
61748 8923 
61718 8919 
59074 61734 8939 
61724 8937 
61734 8940 
- ABS. 052110 000 


ERRORS DETECTED: 0 


ee ee ype LST/CRF=CZQMCG.SML ,.CZQMCG.P11 
RUN-TIME: 60 80 4 SECONDS 


CZQMCGO O-124K MEMORY Suen ISER, 16K VER MACY11 30A(1052) 13-MAR-80 13:10 PAGE 61-3 | 
CZ7QMCG.P11 12-MAR-80 13:0 CROSS REFERENCE TABLE -- MACR SEQ 0136 


RUN-TIME RATIO: 325/146=2.2 
CORE USED: 39K (77 PAGES) 


